Delete Rows with contents starting with 1 via Visual Basic

[StuartM1]

Hi,
I'm trying to teach myself macros.
One of the first steps I want to record is to delete rows based on Column C containing text starting with a '1'.
I found the code below from the interwebs.
I have no idea what Columns i and j have to do with the goal.
Could someone suggest something else or explain why the below fails?
Thanks very much as always!!!!!

Sub Delete_Rows_Starting_with_1()
For i = 1 To Selection.Rows.Count
For j = 1 To Selection.Rows.Count
If Left(Selection.Cells(j, 1), 1) = "1" Then
Rows(j + 3).EntireRow.Delete
End If
Next j
Next i
End Sub

 

[Joe4]

You need to loop through the rows backwards if you are deleting rows, or else some might get missed.

Try this:

Sub Delete_Rows_Starting_with_1()

    Dim lr As Long
    Dim r As Long
   
    Application.ScreenUpdating = False
   
'   Find last row in column C with data
    lr = Cells(Rows.Count, "C").End(xlUp).Row
   
'   Loop through rows backwards
    For r = lr To 1 Step -1
'       Delete row if it starts with a "1"
        If Left(Cells(r, "C"), 1) = "1" Then Rows(r).Delete
    Next r
   
    Application.ScreenUpdating = True
   
End Sub

 

[StuartM1]

That's terrific. I will use that to learn the terms (looping, dim, To, Step). Thanks very much!!

 

[Joe4]

You are welcome.
Glad I was able to help!