Dim RngFrom As Range, RngTo As Range

    Set RngFrom = ActiveWorkbook.Worksheets(1).Range("A1")
    Set RngTo = ActiveWorkbook.Worksheets(2).Range("A2")

Do Until IsEmpty(RngFrom.Value)
Debug.Print RngFrom.Value
    RngFrom.Resize(5).Copy
    RngTo.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
    Set RngFrom = RngFrom.Offset(5)
    Set RngTo = RngTo.Offset(1)
Loop