행추가 반복

Sub InsertRowsAfterEach_2to27()

    Dim i As Integer

    ' 27행부터 2행까지 거꾸로 반복

    For i = 27 To 2 Step -1

        Rows(i + 1).Insert Shift:=xlDown

    Next i

End Sub