Sleeper: Weglaten rijen bij kopieren tabel

[kippiebla]

Ik ben zeker geen ster in Excel en al zeker niet in VBA. In het voorbeeldbestand zie je in werkblad "Bron" in kolom C verschillende mogelijkheden wat er met actie kan gebeuren. Onder deze mogelijkheden staan ook "Fout" en "Niet goed". Het werkblad "Kopie" moet een kopie worden van werkblad "Bron" maar de rijen met "Fout" en "Niet goed" mogen niet worden meegekopieerd. Ze mogen leeg blijven, maar misschien is het ook mogelijk om ze geheel weg te laten zodat er in werkblad "Kopie" nog maar 4 rijen overblijven.

Nu heb ik een code toegestuurd gekregen die het zou moeten doen. Die code is:

Sub Ja()
     With Sheets("bron").Range("A4:C11")           'je bron
  .Parent.AutoFilterMode = False             'filter uitzetten in blad
        .AutoFilter Field:=3, Criteria1:=Array("Ja", "Ja goed", "Ja ok", "nog een andere reden"), Operator:=xlFilterValues   'array met alles dat wel meemag
        .Copy Sheets("Kopie").Range("E4")          'doorkopieren
        .Parent.AutoFilterMode = False             'filter uitzetten
     End With
  End Sub

Maar nou weet ik helemaal niet wat ik met die code moet doen. Waar ik die moet plaatsen. Kan er iemand helpen?

[jolivanes]

Misschien zo?
See attached