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

[saied]

hi i want a code that do like this record macro and will continue up to end
please send me acode

'
' Macro10 Macro
'
' Keyboard Shortcut: Ctrl+b
'
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("10:10").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("15:15").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("20:20").Select
2.jpg1.jpg
    End Sub