knop werkt op ene tabblad, andere niet

[KeveinM]

Via een macro wil ik gegevens van het ene tabblad kopieren naar het andere. De knop om de macro uit te voeren werkt op het ene blad wel, op het andere doet hij niks. Heb al vanalles geprobeerd zodat het wel lukt, maar het lijkt me niet te lukken. Waarschijnlijk iets stoms dat ik over het hoofd zie, maar ik zie het niet ..
Iemand die kan helpen?
Bekijk bijlage voorbeelda.xls

 

[VenA]

Probeer het zo eens.

Sub VenA()
With Sheets("Blad2").Cells(1).CurrentRegion
    .AutoFilter 1, Sheets("Blad3").[B6]
    .AutoFilter 5, Sheets("Blad3").[B2]
    .Offset(1, 1).Resize(, 3).Copy Sheets("Blad3").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With
End Sub

 

[KeveinM]

werkt perfect, merci