Hi I have the following Macro to transpose data from a column into succesive rows. I need it to repeat, until it has processed all data in column A / until it reaches an empty cell in A.

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1:A5").Select
Selection.Copy
Range("B1:F1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A6:A10").Select
Application.CutCopyMode = False
Selection.Copy
Range("B2:F2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Sub Macro2()
'

' Macro2 Macro
'

'
Range("A1:A5").Select
Selection.Copy

Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A6:A10").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A11:A15").Select
Application.CutCopyMode = False
Selection.Copy
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True


End Sub
Sub Transpose()
'
' Transpose Macro
'

'
Range("A1:A5").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A6:A10").Select
Application.CutCopyMode = False
Selection.Copy
Range("B2:F2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A11:A15").Select
Application.CutCopyMode = False
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A16:A20").Select
Application.CutCopyMode = False
Selection.Copy
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Any help would be great!