Solved: Delete Unused rows in a table

[Opv]

here is the sample of the workbook

Delete Empty rows.xlsx

Thanks

Following Kenneth's note, try this amended version, which saves the workbook automatically:

[vba]
Sub Delete_Empty_Rows_Table()
Dim blankRng As Range
On Error Resume Next
Set blankRng = Range("B7:B10000").SpecialCells(xlCellTypeBlanks)
blankRng.Delete shift:=xlUp
On Error GoTo 0
ThisWorkbook.Save
End Sub
[/vba]