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

[Rick Rothstein]

Same idea as KingTamo's code, but a little more compact...

Sub Test()
  Dim R As Long
  For R = 5 To Cells(Rows.Count, "A").End(xlUp).Row Step 5
    Rows(R).Insert
  Next
End Sub