如何删除整列如果没有条目

Question

你能帮我用我的简单代码吗？

Sub DeleteBlankColumn() 
    On Error Resume Next 
    Columns("H").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete 
End Sub 

注意如果没有插入H列代码将如何删除一切？问题是，图表在H5中有一个标题“Staff”。由于“职员”写在单元格中，因此不会删除该列。 如何将代码更改为仅查看单元格H6和向下（在何处创建条目）？这样，如果所有来自H6的单元格都是空白的，它将删除整个列，包括其标题。

非常感谢！

编辑：

下面是截图。

Answer 1

谢谢大家！这是我能找到的：

Dim lr As Long 
lr = Cells(Rows.Count, "H").End(xlUp).Row 
If lr < 6 Then Columns("H").Delete 

谢谢！

Answer 2

If Range("H" & Rows.Count).End(xlUp).Row = 1 Then 
    'Delete 
End If