删除空白列或空列使用Excel VBA Less标题

我有下面的VBA代码，它将删除完全为空的列。我想修改代码，这样如果前三行（标题）下面的范围为空，那么整个列都将被删除。有人能帮忙吗

Sub DeleteBlankColumns()
'Step1:  Declare your variables.
    Dim MyRange As Range
    Dim iCounter As Long
'Step 2:  Define the target Range.
    Set MyRange = ActiveSheet.UsedRange

'Step 3:  Start reverse looping through the range.
    For iCounter = MyRange.Columns.Count To 1 Step -1

'Step 4: If entire column is empty then delete it.
       If Application.CountA(Columns(iCounter).EntireColumn) = 0 Then
       Columns(iCounter).Delete
       End If
'Step 5: Increment the counter down
    Next iCounter
End Sub

尝试：

---

If Cells（Rows.Count，iCounter）.End（xlUp）.rowPlease
If Application.CountA（Columns（iCounter.entireclumn）=3
？如果第3行下面的单元格中有内容，那么我的理解是我们不想删除该列
If Cells(Rows.Count, iCounter).End(xlUp).Row<=3 Then
  Columns(iCounter).Delete
End If