Sub RotateData()
    'Row 1
    Dim r As Integer
    r = 1
    'Column 1 or "A"
    Dim c As Integer
    c = 1

    Dim ws As Worksheet: Set ws = ActiveSheet

    Do While ws.Cell(r, c) <> ""
    Do While ws.Cell(r, c) <> ""
        ws.Cell(r, c) = ws.Cell(c, r + 5)
        r = r + 1
    Loop
        r = r + 1
    Loop
End Sub