Excel VBA 複数「列」を高速削除「Range・Union」使用で高速化する

Dim ObjThisSh  As Object
Dim LngColMax As Long
Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")

With ObjThisSh

    LngColMax = .Cells(2, .Columns.Count).End(xlToLeft).Column

    For LngIndex = 2 To LngColMax
        If .Cells(2, LngIndex).Value = 0 Then
            '列を削除
            .Columns(LngIndex).Delete
        End If
    Next LngIndex

End With

Dim ObjThisSh  As Object
Dim LngColMax As Long
Dim LngIndex As Long
Dim RngDelete As Range
Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")

With ObjThisSh

    LngColMax = .Cells(2, .Columns.Count).End(xlToLeft).Column

    For LngIndex = 2 To LngColMax
        If .Cells(2, LngIndex).Value = 0 Then
            If RngDelete Is Nothing Then
                Set RngDelete = .Cells(2, LngIndex)
            Else
                Set RngDelete = Union(RngDelete, .Cells(2, LngIndex))
            End If
        End If
    Next LngIndex

    If Not RngDelete Is Nothing Then
        'RngDelete.EntireColumn.Select 'テスト用　削除予定列を表示させる
        '列を一括削除
        RngDelete.EntireColumn.Delete
    End If

End With