Macro to match left string

I am able to write a formula to extract the first 6 characters of a cell

= LEFT(A6, 6)

with A6 being the particular cell that the data is coming from

What I'm wanting to do is be able to insert a similar command into a macro that will delete the entire row for each row that has a specific string at the start of the cell contents. The loop will end when there is no data in column 1. There are thousands of records that I need to check this data from, and I'm not sure of how to do it

What I have so far is this, with the string that I'm looking for is "6digit"

CR= 2
Done = False

Do

If Worksheets("Data").Cells(CR, 1) = "" Then
Done = True
Else
If Worksheets("Data").Cells(CR, 1)????????? = "6digit" Then
Rows(CR).Select
Selection.Delete Shift:=xlToUp
Else
CR = CR + 1
End if
End if

Loop until done

with the red portion the code that I know is wrong. Any help on this would be greatly appreciated. Thanks

But this one worked

Thanks for the help

Originally Posted by arlu1201

Try this

Option Explicit
Sub del_6dig()
Dim i As Long, lrow As Long

Application.ScreenUpdating = False

With Worksheets("Data")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow To 2 Step -1
        If Left(.Range("A" & i).Value, 6) = "6digit" Then .Rows(i).Delete
    Next i
End With

MsgBox "Done"

Application.ScreenUpdating = True

End Sub

When I add this I get the following error

Compile error: Argument not optional

Originally Posted by Special-K

Does this work?

If Left(Worksheets("Data").Cells(CR, 1).value) = "6digit" Then