Sorry, delete should go from bottom up.

Sub delSome()
Dim lr As Long
lr = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
'Set rng = ActiveSheet.Range("C10:C" & lr)
For i = lr To 10 Step - 1
If Cells(i, 3) = "" Then
Cells(i, 3).EntireRow.Delete
End If
Next
End Sub



"JLGWhiz" wrote in message
...

Sub delSome()
Dim lr As Long, rng As Range
lr = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
Set rng = ActiveSheet.Range("C10:C" & lr)
For Each c In rng
If c.Value = "" Then
c.EntireRow.Delete
End If
Next
End Sub



"LiAD" wrote in message
...
Hi,

Could some give me a code please to delete the entrie row if any cell in
col
C of that row starting from c10 going to the last cell down = ""?

Thanks
LiAD