Repeat macro until empty cell is reached

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!

I am not sure on some of the things you said. Maybe this:

Sub RunMe()
Dim ws As Worksheet:    Set ws = Sheets("Sheet1") 'you may need to change this
Dim lcell As Long

For lcell = 1 To ws.Range("A" & Rows.Count).End(xlUp).Row Step 5
    If IsEmpty(ws.Range("A" & lcell)) Then Exit Sub
    ws.Range("A" & lcell).Resize(5, 1).Copy
    ws.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll, Transpose:=True
Next lcell

Application.CutCopyMode = False

End Sub

[QUOTE=stnkynts;3686458]I am not sure on some of the things you said. Maybe this:

Apologies, I got this from recording a Macro. I am highlighting 5 cells down a column then using paste special to copy them to a row.

Did the macro I supplied accomplish what you wanted?