VBA - Copier une ligne et l'ajouter à la suite du tableau

Sub copie()

' Déclaration des variables
Dim i As Integer
Dim arret as Boolean

' Le tableau commence à la ligne 7 donc i = 7
i = 7

    Do
        ' Dès qu'une cellule est vide, le code s'arrête
        If (ActiveSheet.Range("B" & i)) = "" Then
            arret = True
        Else
            ' Sinon on incrémente et ça boucle
            i = i + 5
        End If
    Loop While arret = False
    
    ' Dès que l'on sort de la boucle, on copie le tableau du dessus pour le mettre en dessous
    Range("B" & i - 5 & ":L" & i - 1).Copy
    Range("B" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub