deleting blank rows

[mmmarks]

Hi,
I have Data like this in a sheet Some blank rows are there.
I want to delete that row which doesnt have any numeric

1st row 2871, 2872, 9218, 9219, 10185, 10186,






9th row 9738, 9739,

11th row 10189, 10190,

15th row 4988, 4989,

17th row 2845, 2846, 4184, 4185, 9174, 9175,


Hope understood

 

[VoG]

Try

Sub test()
On Error Resume Next
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub

 

[mmmarks]

Thanks Its works