Bepaalde rij opzoeken en knippen naar andere sheet

[Bertus78]

Beste Allen,

Ik zit wederom met een probleempje waar ik niet uit kom.

With Sheets("BI")
 gev = Application.Match(Sheets("Vinder").Range("D4"), .Columns(1), 0)
  If Not IsError(gev) Then .Cells(gev, 1:16).Select: Selection.Cut
  Sheets("B2").Select
  Rows("2:2").Select
  ActiveSheet.Paste
 End With

Wat wil ik:
De eerste twee regels klopt. hij moet zoeken in sheet BI naar de overeenkomst wat ik heb ingevoerd in sheet vinder cel D4
Maar nu wil ik dat als hij een overeenkomst heeft gevonden de betreffende rij knipt en plakt in sheet B2 onder aan de laatste rij.

Ik heb wat zitten knoeien en geprobeerd zoals je ziet, maar ik kom er even niet meer uit.
Wie weet hoe ik dit moet schrijven.

Alvast bedankt

 

[HSV]

With Sheets("BI")
 gev = Application.Match(Sheets("Vinder").Range("D4"), .Columns(1), 0)
  If Not IsError(gev) Then .rows(gev).Cut Sheets("B2").cells(rows.count,1).end(xlup).offset(1)
 End With

Deze methode is trouwens nieuw voor mij.

.Cells(gev, 1:16)

 

[Bertus78]

Bedankt,

De nieuwe methode was ook een probeersel, ik ben een beginner en ik probeer dan van voorbeelden iets te maken, soms lukt het en soms niet.

Nogmaals bedankt !!!!