next without For

Hi

I am trying to create a VBA to clear a list with specific works.
I am having this issue:
Next without For.

Anybody could help me.
Thanks

Sub Macro1()
'
' Macro1 Macro
'

'
Dim a As Integer


'keyword.
Sheets("List Material to Deleted").Select

    For a = 1 To 100
    
    Text = Cells(a, 1)
    If Text = "" Then Exit Sub
 
    Cells(a, 2).FormulaR1C1 = "=LEN(RC[-1])"

    LONGITUD = Cells(a, 2).FormulaR1C1 = "=LEN(RC[-1])"

'search to delete.

        Sheets("ML").Select
Dim b As Integer

        For b = 1 To 300
    
        text2 = Cells(b, 1)
        If text2 = "" Then Exit Sub Else
        
        
        
    If (Left(Cells(b, 1), LONGITUD) = Text) Then
    
 Cells(b, 1).ClearContents
         
      
Next b



 End If
 


Sheets("List Material to Deleted").Select

Next a

End Sub