Delete Rows Based on Cell Value

[Yoandsm]

Hi All,

I want to thank you thank you in advance for any help that you can provide. I am hoping this is a relatively straightforward question, but because I am a novice at VBA this is still a little over my head. I have attached an example spreadsheet so you can follow along with what I am asking.

I have data that I pull that comes out in all different size ranges. It could be anywhere from 6 to 15 columns. And anywhere from 3000 - 10,000 rows. What I am looking for is VBA code that will delete rows based on whether a cell has a value of 0 or a negative value. The good news is that these values are always in the same column.

For example, in this spreadsheet in Column D, I have both positive, negative and zero values. What I would need is for any row that has a 0 or negative value in Column D to be deleted. I should also mention that this data is already set as a Table as it is in this example spreadsheet and I am unable to change that. I'm hoping this is good news since the Table already has filters on it.

I appreciate any help!

Thank you

[bakerman2]

How about this one.

Sub tst()
    With Sheet1.ListObjects("Table1")
        For i = .ListRows.Count To 1 Step -1
            If .DataBodyRange(i, 4) <= 0 Then .ListRows(i).Delete
        Next
    End With
End Sub

[Sintek]

Another Option...

Sub DeleteRows()
With Cells(1).CurrentRegion
    .AutoFilter 4, "<=0"
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With
End Sub