Excel'de her satırsan sonra bir boş satır ekleme

Sub Makro1()
'
' Makro1 Makro
'

'
Dim i As Integer
Dim crange As String


For i = 2 To 4000 Step 2
  
    Rows(CStr(i) & ":" & CStr(i)).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
Next i

End Sub