Find/Cut/Paste Last Row

[Strobbe]

Hello,

Currently trying to create a Macro that will find "IBT" in my data set from Sheet2 then select the Current Region to cut that data to Sheet3.

currently i am able to find that "IBT" select current region cut and paste to Sheet3, however cannot figure out how to loop this to grab all data that contains the "IBT"


Dim lastrow As Long

lastrow = Worksheets("Sheet3").Range("A5000").End(xlUp).Row

Cells.Find(What:="IBT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select

ActiveCell.CurrentRegion.Select
Selection.Cut Worksheets("Sheet3")

 

[Strobbe]

Thanks so much guys!

Working perfectly!

 

[RobP]

Thats great - glad to have helped, and appreciate the feedback..

Kind Regards

Rob