Delete entire row

[Panoos64]

Hi all, i would like to use VBA code so that to delete entire row, where in column "A" is number. Due to headings the code should run from "A4" and rows down. Thank you all in advance

 

[Kamolga]

[COLOR=#008000]'Declare sheet[/COLOR]
 Dim sh As Worksheet: Set sh = ActiveSheet
[COLOR=#008000]'Declare last row[/COLOR]
 Dim lr As Long: lr = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
[COLOR=#008000]'Declare running row[/COLOR]
 Dim r As Long
[COLOR=#008000]'Loop through rows[/COLOR]
 For r = lr To 4 Step (-1)
    If IsNumeric(Cells(r, 1).Value) Then
        Rows(r).Delete
    End If
 Next r

 

[Rick Rothstein]

Does this macro do what you want...

[table="width: 500"]
[tr]
	[td]Sub DeleteRowsIfNumbersInColumnA()
  Columns("A").SpecialCells(xlConstants, xlNumbers).EntireRow.Delete
End Sub[/td]
[/tr]
[/table]

 

[Panoos64]

Many thanks Kamolga, the code works perfect. Thanks also for your time spent for my project. Hv a great day

 

[Panoos64]

Thank you Rick, the VBA works nicely. Thansk once again for your continued support. Hv a lovely day