Удаление пустых и ошибочных значений

[ymnuhj]

Sheets("CBR").select
         For i = 4 To 59 Step 1
         If Cells(17, i) = "" Or Cells(17, i) = "#VALUE!" Then
         
         Sheets("CBR").Columns(i).Delete
         End If
         Next i

Выдает ошибку на валью, как написать код грамматически правильно чтоб он удалял столбцы если в соответствующих ячейках пустые или ошибочные значения

[ymnuhj]

Проблема решена

Sub Макрос1()
On Error Resume Next
With Sheets("CBR").Range(Cells(17, 4), Cells(17, 59)) 'можно Range(Cells(17, "D"), Cells(17, "AV"))
    .SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
    .SpecialCells(xlCellTypeConstants, xlErrors).EntireColumn.Delete
    .SpecialCells(xlCellTypeFormulas, xlErrors).EntireColumn.Delete
End With
End Sub