Do until empty row loop in macro
<p>I have a data file with one column and several rows (dynamic list). I want to transpose the first 28 rows to the first row, the second 28 rows to the second row and so on. I want this to run till an empty row is found. However when i run the code it only transposes the first 28 rows. I have not been able to get results with the "do until empty" loop and am unable to spot the error.
Thanks for your help.</p>

<pre><code>    Sub Macro1()
    '
    ' Macro1 Macro
    '
    '
    Range("A1").Select
    Do
    Range("A1:A28").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,     SkipBlanks:= _
    False, Transpose:=True
    ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell.Value = ""
    End Sub
</code></pre>