Hvordan opretter jeg en lykke i en makro?

I kollonne B har jeg en lang række af tal som jeg vil kopiere og transponere i grupper hvordan gør jeg det i en lykke?

F.eks. B1, B2, B3 og B4 kopieres og indsættes - tranporneres i celle D1-G1. Herefter B5, B6, B7 og B8 kopieres og indsætte - tranporneres i celle D5-G5 osv. indtil der ikke er flere værdier i kolonne B (evt. 1000 gange)

Her er min makro som jeg forestiller mig køre i en lykke, men hvordan gør jeg dette?

Sub Makro3()

'Marker A1 og start makro

    ActiveCell.Offset(0, 1).Range("A1:A4").Select
    Selection.Copy
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveCell.Offset(4, -2).Range("A1:A4").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

End Sub