Insert two rows above cell, if cell in column A contains data

Try this code

Option Explicit

Sub insert_rows()
Dim i As Long, lrow As Long

Application.ScreenUpdating = False

With Worksheets("Sheet1")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow To 2 Step -1
        If .Range("A" & i).Value <> "" Then .Rows(i & ":" & i - 1).Insert
    Next i
End With

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

Can you write it to start on line A10? The code is adding two rows, but not corresponding with the cell containing data in column A. It appears to add the 2 lines above the last cell of data in line B.

Thank you for your help! I really appreciate it!

Change

For i = lrow To 2 Step -1

to

For i = lrow To 10 Step -1

It is adding the rows above row 8 and not row 7.