If ActiveCell.Value > 5 Then
Sub Test()
Dim LR As Long
Dim r As Long
With ActiveSheet
LR = .Range("C" & .Rows.Count).End(xlUp).Row
For r = LR To 2 Step -1
With .Range("C" & r)
If .Value > 5 Then
.EntireRow.Delete
End If
End With
Next r
End With
End Sub