Excel VBA macro to select range separated by blank row and copy to next empty column

I was able to copy the range to another sheet but I have no idea how to loop and do all of them and having a hard time copying to the same sheet.

I used:

Sub MoveCellRange()
    e1 = Sheets("Sheet1").Cells(2, 1).End(xlDown).Row
    Sheets("Sheet1").Rows("1:" & e1).Copy Destination:=Sheets("Sheet2").Range("A1")
End Sub

Thanks...