excel vba - delete row if the is a blank using table

[Uzma Shaheen]

Hiya

Im trying to delete a column if the is a blank in the column however i get no results - Im using a table but its saying no blank cells found when there clearly is

Here is my code

Sub DeleteBlankRows(SheetName As String, TableName As String)


Dim Sh As Worksheet
Dim tbTable As ListObject
Dim lRow As Long


Set Sh = ThisWorkbook.Worksheets(SheetName)
Set tbTable = Sh.ListObjects(TableName)
    
tbTable.ListColumns("Group").DataBodyRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete


lRow = Sh.Range("A:A").Find(WHat:="*", After:=Sh.Range("A1"), SearchDirection:=xlPrevious).Row
tbTable.Resize Sh.Range("A1:T" & lRow)


End Sub

 

[davesexcel]

Are there formulas? specialcells will only find truly blank cells.

 

[Uzma Shaheen]

Hiya - they are formulas that return blanks