Is there a way to serch for a word than copy the next few cells to
paste else where?
A B C
Item 1 11.2 101.2
Item 2 11.5 152.0
Item 3 11.68 134.2
Item 1 11.3 100.5


It would search for the item then copy and the next two rows and I can
then paste it.

With Worksheets(1).Range("a1:a500")
Set c = .Find(Item2, lookin:=xlValues)
If Not c Is Nothing Then

range(c.offset(0,1),c.offset(0,2)).copy
End If
End With

" wrote:

Is there a way to serch for a word than copy the next few cells to
paste else where?
A B C
Item 1 11.2 101.2
Item 2 11.5 152.0
Item 3 11.68 134.2
Item 1 11.3 100.5


It would search for the item then copy and the next two rows and I can
then paste it.