A code to add fresh row after each odd row

[capitala]

First of all, thanks for your usual support.
I need a code that loops through current table and add one blank row after each odd row (first, third, etc.)


Thanks a lot

[vivka]

Hi, Capitala! The code is quite simple:

Sub Tbl_Add_Rows()
'In the selected tbl, insert a row after each odd row.

Dim LastRow As Integer
    Application.ScreenUpdating = False
    LastRow = selection.Tables(1).rows.count
    If LastRow Mod 2 = 0 Then
        LastRow = LastRow
    Else: LastRow = LastRow - 1
    End If
    For i = LastRow To 2 Step -2
        selection.Tables(1).rows(i).Select
        With selection.Tables(1).rows(i)
            selection.InsertRowsAbove 1
        End With
    Next i
Application.ScreenUpdating = True
End Sub

[capitala]

Actually, it has inserted a row only after the first row, then it stopped

[vivka]

Can't be! I've tested and retested it! Number the rows in the original table, then run the macro to see the result. As an afterthought, maybe your table has merged rows/columns?

[capitala]

I appreciate of you send me the document on which you've tested the code?
Thanks in advance

[capitala]

Now it's quite Perfect. Thanks

[vivka]

Nice! You are welcome!