Blank Cell (Clear All or Delete Cells) in Excel|VBA & Macros|Excel Forum|My Online Training Hub

Hi i am using the excel 2013

I am trying the blank cells clear all or delete cells

We have tried to the selected range (A1:AY337) "Go To Special" select click the Blanks, but not select all blank cells.

And trying based on VBA from https://www.extendoffice.com/d.....blank.html

Sub BlackCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Kutools for Excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeBlanks)
If Err = 0 Then
MsgBox "You don't answer all of questions!"
End If
End Sub

I cannot find Blank Cells

Kindly provide the VBA code and Thanks for Advance