If I understand the request why not just use the single line of code

Sheet1.Range("A1").CurrentRegion.Offset(1, 0).Copy Destination:=Sheet2.Range("A2")