Excel Macro deleting rows contain "0"

[skyt]

hi all, im new to this forum and i have a question regarding a macro i wrote.

my file contains 4 columns and over 50k row, the macro will sort the data according to column D in descending order, and only around 700 of them (data in column d) will contain data that's not a zero.

what i want to do is to delete all the rows whose column D has a value of 0.

here is the code i wrote but it's not working

Sub deleteit()
        Set myRange = Range("D2", Range("D65536").End(xlUp))
        myRange.Cells(0).EntireRow.Delete
End Sub 

can someone please help me?

[BigBas]

Try:

Please Login or Register  to view this content.

[skyt]

hi and thanks for the reply, i tried the code, it works but it's very slow since i have 50k of data to delete and running everything through a loop simply gonna take forever, i asked a friend to help and here is a faster method for you guys to reference

Sub Delete_It()
    Dim LastRow As Long
    Dim FirstRow As Long
    LastRow = Cells(Rows.Count, "D").End(xlUp).Row
  
    Application.ScreenUpdating = False
    For i = 2 To LastRow Step 1
        If Cells(i, "D") = 0 Then
            Worksheets("Sheet2").Range(Cells(i, 1), Cells(LastRow, 4)).Delete
            Exit For
        End If
    Next i
    Application.ScreenUpdating = True
End Sub