вы можете преобразовать следующий пример в ваш код
'for filter column no 4 for null rows then delete null rows as following
With drywtmonthly.Sheets("input").Range("a1:u1")
.AutoFilter Field:=4, Criteria1:=""
Sheet1.Range("a2:u600").Delete
.AutoFilter Field:=4
End With
Я надеюсь, что это полезно