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