Deleting Rows that Contain Numbers

[G-Ram]

How do I delete all rows that contain a numeric value in column A using a macro?

Thanks!

 

[Zoddy]

This may help


Sub RemvNumRows()
'
' RemvNumRows Macro

Dim chk As Double
Dim rownum As Double

ActiveCell.SpecialCells(xlLastCell).Select
rownum = ActiveCell.Row
Range("A1").Select
For chk = 1 To rownum
If IsNumeric(ActiveCell.Value) And ActiveCell.Value > 0 _
Then Rows(ActiveCell.Row).Delete _
Else: ActiveCell.Offset(1, 0).Select
Next

End Sub

regards

KenS