Repeating loop till no values remain

[smilton]

I am trying to complete a data transformation where all my reords are in a singel colum and contain 4 rows for each. I want to transpose the 4 rows in colum A to 1 row with 4 columns starting in cell C1 and inserting the repeated row offset by 1 row (i.e. cell c2) I have created the base function that I want to accomplish, but am having difficulty setting up the loop. See code below...

Thanks,
Scott

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

' Base function

    Range("A1:A4").Select
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Range("A1:A4").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp 

' need to repeat until column A does not have any values