Here you are, just run it after the first.

Sub DeleteData()
Dim iLastRow As Long
Dim iRow1 As Long
Dim iRow2 As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "C").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Cells(i, "C").Value = "" Then
Rows(i).delete
End If
Next i

End Sub




--
HTH

Bob Phillips

"kishore" wrote in message
ups.com...
Excellent, Perfect, Many thanks Bob, another easy question, is it
possible to get some code to delete the all the rows for which there is
no value in Col C, asking this because once the values from column C
moved to Column B, I want remove all those values for which there is no
value in Col C.

Many thanks,
Regards