Try this pal

Sheets("Sheet1").Select
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
x = ActiveCell.Row
ActiveSheet.Cells(x + 1, 1).Select
x = ActiveCell.Address

Sheets("Sheet2").Select
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
p = ActiveCell.Address

a = "a1"
Range(a, p).Select
Selection.Copy _
Destination:=Worksheets("sheet1").Range(x)

Good Luck
Ross