Gap Between Rows

[earthworm]

I have a data set like this

Row1:Data1
Row2:Data2
Row3:Data3
Row4:Data4

I need a gap between each row and also a single gap like this

Row1:Data1
Row2:Data1
Row3: Space
Row4:Data2
Row5:Data2
Row6:Space
Row7:Data3
Row8:Data3
Row9:Space
Row10:Data4
Row11:Data4

The Purpose is i need a debit entry and also a credit entry to Zerioze the transaction effect

Please guide.

I am able to achieve it but thats not practical which includes insertion of 2-3columns in front of data. its quite complicated . Is there any easy way

secondly
how to give gave between serial number 1-any number without inserting the row between them . is there any easy way ?

 

[Robert Mika]

Try this:

Sub Insert_Row()
    Dim LastRow As Long
    Dim I As Integer
    LastRow = Range("A" & Rows.count).End(xlUp).Row
    For I = LastRow To 3 Step -1
        Rows(1).Copy '  Copy  Header
        Rows(I).Insert
        Rows(I).Insert
    Next I
     End Sub

 

[earthworm]

Try this:

Sub Insert_Row()
    Dim LastRow As Long
    Dim I As Integer
    LastRow = Range("A" & Rows.count).End(xlUp).Row
    For I = LastRow To 3 Step -1
        Rows(1).Copy '  Copy  Header
        Rows(I).Insert
        Rows(I).Insert
    Next I
     End Sub

is there any formula based method ?

 

[Robert Mika]

No if you need this in the same column of the same sheet.