Hi flurry

try the following

LCopyToRow = Application.CountIf(Worksheets("Diary").Range("A:A "),
"<")



'Select row in January or February to copy
Rows(LSearchRow).Copy Destination:=Worksheets("Diary").Rows(LCopyToRow
+ 1)


'Move counter to next row
LCopyToRow = LCopyToRow + 1

Cheers Christian