Hi, I am very much a beginner with vb macros. I am basically trying to copy data inputted on one sheet to say a summary master sheet.

The code I have pulled together for this so far is:

Sub Copyandpastecostdata()

Sheets("sheet3").Select

test = Cells.Next

Set test = Cells.Find(what:="Plot Costs", after:=ActiveCell, lookat:=xlWhole)

If test Is Nothing Then
'item not found, go on to next search item

Else
'item found
test.Activate

ActiveCell.Offset(0, 1).Copy

Sheets("sheet1").Select

Cells.Find(what:="plot costs", after:=ActiveCell, lookat:=xlWhole).Activate

ActiveCell.Offset(0, 1).PasteSpecial

Sheets("sheet3").Select

End If
End Sub

The code works as I want it to do, but what I cant figure out is how to repeat this action whilst running the same macro but finding say "abnormal costs" and then again finding "main site costs" etc.

Hope somebody could help, it would be much appreciated.

Regards
EM