inserting a row(empty) afther each 4 rows of my data

[KingTamo]

Suppose there are some data in column A ...
Try this code

Sub InsertEmptyRow()
    Dim LR As Long, I As Long, X As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    X = Int(LR / 4) + LR
    For I = 5 To X Step 5
        Cells(I, 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next I
End Sub