Удалить пустые строки при условии пустой ячейки

Sub Cleaning()
Application.ScreenUpdating = False
For s = 1 To ActiveWorkbook.Worksheets.Count
For i = Sheets(s).Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Sheets(s).Cells(i, 2).Value = 0 Then Sheets(s).Rows(i).Delete Shift:=xlUp
Next
For i = Sheets(s).Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If Sheets(s).Cells(i, 3).Value = 0 Then Sheets(s).Rows(i).Delete Shift:=xlUp
Next
Next
Application.ScreenUpdating = True
End Sub

Sub A_B_C_D()
'
' A_B_C_D Макрос
'
Sheets("Лист1").Select
    Application.ScreenUpdating = False
        For s = 1 To ActiveWorkbook.Worksheets.Count
        For i = Sheets(s).Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
            If Sheets(s).Cells(i, 2).Value = 0 Then Sheets(s).Rows(i).delete Shift:=xlUp
        Next
        For i = Sheets(s).Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
            If Sheets(s).Cells(i, 3).Value = 0 Then Sheets(s).Rows(i).delete Shift:=xlUp
        Next
        Next
    Application.ScreenUpdating = True
End Sub

Public Sub www()
    On Error Resume Next
    Sheets("Лист1").Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
        .UsedRange.RowHeight = 12.5
        Intersect(.UsedRange, .[b:c]).Value = Intersect(.UsedRange, .[b:c]).Value
        Intersect(.UsedRange, .[b:c]).SpecialCells(2, 1).EntireRow.Delete
    End With
End Sub

   Sheets("Лист1").Copy after:=Sheets(Sheets.Count)

Public Sub www()
    On Error Resume Next
    With ActiveSheet
        .UsedRange.RowHeight = 12.5
        .UsedRange.Value = .UsedRange.Value
        Intersect(.UsedRange, .[b:d]).SpecialCells(2, 1).EntireRow.Delete
    End With
End Sub

Public Sub www()
    On Error Resume Next
    Sheets("Лист1").Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
        .UsedRange.RowHeight = 12.5
        Intersect(.UsedRange, .[b:d]).Value = Intersect(.UsedRange, .[b:d]).Value
        Intersect(.UsedRange, .[b:d]).SpecialCells(2, 1).EntireRow.Delete
    End With
End Sub

Public Sub www()
    On Error Resume Next
    With ActiveSheet
        .UsedRange.RowHeight = 12.5
        .UsedRange.Value = .UsedRange.Value
        With Intersect(.UsedRange, .[b:d])
            .Replace 0, "", 1
            .SpecialCells(4).EntireRow.Delete
        End With
    End With
End Sub