Hi,
Can you please try the below code
Sub delblankcell()
On Error GoTo test1
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
Selection.ClearContents
Range("a1").Select
test1:
MsgBox "There is not blank cell"
End Sub
Thanks,
Suresh Kumar S
Hi,
Can you please create a new module and paste the below code and run (it will delete the entire row)
Sub delblankcell()
On Error GoTo test1
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
Selection.EntireRow.Delete
Range("a1").Select
test1:
MsgBox "There is not blank cell"
End...