Thread: simple....need to insert new row after every other row.

I need to insert a new row after each row that begins with SPL in column A. In this sheet it happens to be every other row. But I do have a couple of other sheets where it isn't every other row.

Hi Iisach,
Here is some code that will do what you want.

Sub NewRowAfterSPL()
Dim LastRow As Double
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Dim RowCtr As Double
    For RowCtr = 1 To LastRow
        If Left(Cells(RowCtr, "A"), 3) = "SPL" Then
            Rows(RowCtr + 1).Insert
            RowCtr = RowCtr + 1
        End If
    Next RowCtr
End Sub