d.EntireRow.Delete

Set d = ch

Sub DelEmptyRowsOn5Column()
Application.ScreenUpdating =  0 
Set to_sheet = ThisWorkbook.Sheets( 1 ) 'это я тестировал, исправьте
Set Col1 = to_sheet.UsedRange '.Columns(5) ' имхо UsedRange всё равно берётся от всего листа,
' если надо определять именно по 5 колонке и не удалять строки вне проверяемого диапазона,
' код надо усложнить
y = Col1.Rows.Count
For x = y To  1  Step - 1 
If Cells(x,  5 ).Value = "" Or Cells(x,  5 ).Value =  0  Then Rows(x).EntireRow.Delete
If x Mod  100  =  0  Then Application.StatusBar = "Working On Row " & x ' чтоб видеть процесс
Next x
Application.ScreenUpdating =  1 
Application.StatusBar = False
End Sub

Option Explicit

'Процедура очистки(удаления) строк в столбце ColNum со значениями DelValue:

'===================================================================================
' Sub         : DelRows(TableHeader,ColNum,DelValue)
' TableHeader : Range; table header range
' ColNum      : Long; column number with DelValue
' DelValue    : Variant; value of rows to be deleted
'-------------+---------------------------------------------------------------------
' VBA call    : DelRows ActiveSheet.Range("A1:H1"), 5, 0
'-------------+---------------------------------------------------------------------
' Created     : ZVI:2009:12:26 http://www.sql.ru/forum/actualthread.aspx?tid=722758
'-----------------------------------------------------------------------------------
Sub DelRows(TableHeader As Range, ColNum As Long, DelValue)
    Dim Arr(), r&, rs&, cs&, i&, v, ac, oDict As Object
    With TableHeader.CurrentRegion
        rs = .Rows.Count - TableHeader.Row + .Row
        cs = .Columns.Count - TableHeader.Column + .Column
    End With

    Set oDict = CreateObject("Scripting.Dictionary")
    For Each v In Split(DelValue)
        oDict.Item(--v) = vbNullString
    Next
    
    With TableHeader.Resize(rs, 1)
        Arr() = .Offset(, cs).Value
        ' Check DelValue

    For Each v In .Offset(, ColNum - 1).Value
        r = r + 1
        If oDict.exists(v) Then
            i = i + 1
            Arr(r, 1) = 1
        End If
    Next
    If i < rs Then
        ' Freeze on
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
            ac = .Calculation: .Calculation = xlCalculationManual
        End With
        ' Delete rows with DelValue in ColNum
        .Offset(, cs) = Arr
        .Resize(, cs + 1).Sort .Cells(1).Offset(, cs), 1, Header:=xlNo
        .Resize(, 1).Offset(, cs).ClearContents
        .Resize(rs - i, cs).Offset(i).Clear   ' или .Resize(rs - i).Offset(i).EntireRow.Delete
        ' Freeze off
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
            .Calculation = ac
        End With
    End If
End With
End Sub

'Тестирование:
Sub Test()
    DelRows ActiveSheet.Range("A1:H1"), 7, "2 3"
End Sub