Excel VBA -删除两个已用范围之间的空列

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim startCol As Range
Dim endCol As Range
Set startCol = ws.Range("A1")
Set endCol = ws.Range("Z1")

Dim col As Range
For Each col In ws.Range(startCol, endCol)
    If Application.WorksheetFunction.CountA(col.EntireColumn) = 0 Then
        col.EntireColumn.Delete
    End If
Next col

Sub DeleteEmptyColumns()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Dim startCol As Range
    Dim endCol As Range
    Set startCol = ws.Range("A1")
    Set endCol = ws.Range("Z1")
    
    Dim col As Range
    For Each col In ws.Range(startCol, endCol)
        If Application.WorksheetFunction.CountA(col.EntireColumn) = 0 Then
            col.EntireColumn.Delete
        End If
    Next col
End Sub