cycle for

Hello, I just need solve one simple problem (which drive me mad )
so I have this code

    If Range("A3").Value <> "Draw" Then Range("A3").EntireRow.Insert Shift:=xlDown
    If Range("A6").Value <> "Draw" Then Range("A6").EntireRow.Insert Shift:=xlDown
    If Range("A9").Value <> "Draw" Then Range("A9").EntireRow.Insert Shift:=xlDown
    If Range("A12").Value <> "Draw" Then Range("A12").EntireRow.Insert Shift:=xlDown

and I need to do it with command FOR, I try to do it but :

        For lngRow2 = 0 To 500 Step 3
              
                  If Range("A" & lngRow2).Value <> "Draw" Then
                    Range("A" & lngRow2).EntireRow.Insert Shift:=xlDown
                  End If
        Next

and there is some error (where?)

or

        For lngRow2 = 0 To 500
            
                  If Range("A" & lngRow2 + 3).Value <> "Draw" Then Range("A" & lngRow2).EntireRow.Insert Shift:=xlDown
        Next

but lngrow2 doesnt have +3 each cycle, only +1 ...

Anyone could help me, please?

When inserting or deleting start at the end and work your way back to the start. That way the number referencing does not get out of sync.

    Dim lngRow2 as long

    For lngRow2 = 501 To 3 Step -3
        If Cells(lngRow2,1).Value <> "Draw" Then
            Cells(lngRow2,1).EntireRow.Insert Shift:=xlDown
        End If
    Next

Try this instead then,

Sub x()
    Dim lngRow2 As Long
    
    lngRow2 = 1
    Do While lngRow2 <= 500
        If Cells(lngRow2, 1).Value <> "Draw" Then
            Cells(lngRow2, 1).EntireRow.Insert Shift:=xlDown
            lngRow2 = lngRow2 + 1
        End If
        lngRow2 = lngRow2 + 3
    Loop
    
End Sub

for that data example

Sub x()
    Dim lngRow2 As Long
    
    lngRow2 = 3
    Do While lngRow2 <= 500
        If Cells(lngRow2, 1).Value <> "Draw" Then
            Cells(lngRow2, 1).EntireRow.Insert Shift:=xlDown
        End If
        lngRow2 = lngRow2 + 3
    Loop
    
End Sub