Delete rows depending on cell value in range

Sub eliminate_rows()
Application.ScreenUpdating = False
Application.Calculation = xlManual
For x = Range("D65536").End(xlUp).Row To 1 Step -1 'you have to do it from bottom to top, else not eveything will be deleted
If Range("D" & x) <= 0 Then Range("D" & x).EntireRow.Delete
Next x
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

Sub eliminate_rows()
Dim rng As Range
Application.ScreenUpdating = False
Columns(4).Insert
Set rng = Range([D1], [E65536].End(xlUp)(1, 0))
With rng
    .FormulaR1C1 = "=IF(RC[1]<=0,1,"""")"
    .Copy
    .PasteSpecial Paste:=xlValues
    .EntireRow.Sort Key1:=rng(1), Order1:=xlDescending, Header:=xlNo
    On Error Resume Next
    .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
    On Error GoTo 0
    .EntireColumn.Delete
End With
End Sub