Mark,

assuming from the location that both sheets have titles in
Row 1, try this.

Limit = application.worksheetfunction.counta(sheets("sheet
2").Range("A2:A65536"))
Sheets("Sheet 3").Range("A2:J2").copy destination:= sheets
("Sheet 3").Range(sheets("Sheet 3").Cells(3,1),sheets
("Sheet 3").cells(Limit+3,1))

Pete.