Delete Row under certain conditions

Hi guys,

I just need some help with making changes to the following code

Selection.SpecialCells(xlCellTypeLastCell).Select
j = ActiveCell.Row

For i = 1 To j

    If Range("C" & i).Borders(xlEdgeTop).LineStyle <> xlContinuous Then
    Rows(i).Delete
    i = i - 1
    End If
    
  Next i

I want to find when a cell in column C does not contain a Top Border. If so then delete the row.

is there a better method for doing this? this causes excel to hang

Regards