Delete all non Bolded rows VBA

Hi there,

I have to delete all non-bold rows in a worksheet and i have the following code. It does what I need but I have to run it multiple times in order to delete ALL the non bolded rows.

I cant seem to figure out why I have to run it multiple time and want to only run it once.

Sub delete_all_non_bolded_rows()


Dim i As Long
    
    LastRow = Cells(Rows.Count, 3).End(xlUp).Row
    
    For i = 1 To LastRow
        If Rows(i).Font.Bold = False Then Rows(i).EntireRow.Delete
    Next i
   

End Sub