Delete blank rows in an Excel table using a VBA Macro

Hi dangelor,
I was able to find the solution to deleting blank rows in an Excel table using a VBA Macro. Thanks you for responding to my post. Below is the code:

Dim tbl As ListObject
  Set tbl = ActiveSheet.ListObjects("Table1")

'Delete all table rows except first row
    With tbl.DataBodyRange
      If .Rows.Count > 1 Then
       .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
      End If
    End With