행삭제 속도 개선시키고싶습니다 !!...

Private Sub DEL_Click()
 
Dim i As Integer
Dim j As Integer
 
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
 
 
With ActiveSheet.UsedRange.Columns
j = .Column + .Count
End With
For i = j - 1 To 1 Step -1
If Application.CountIf(Columns(i), "LOWER_A_R-NAME") = 0 And Application.CountIf(Columns(i), "LOWER_A_L-NAME") = 0 And Application.CountIf(Columns(i), "LOWER_B_L-NAME") = 0 And Application.CountIf(Columns(i), "LOWER_B_R-NAME") = 0 And Application.CountIf(Columns(i), "UPPER_A_L-NAME") = 0 And Application.CountIf(Columns(i), "UPPER_A_R-NAME") = 0 And Application.CountIf(Columns(i), "UPPER_B_L-NAME") = 0 And Application.CountIf(Columns(i), "UPPER_B_R-NAME") = 0 Then
Columns(i).Delete
End If
Next i
 
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
 
 
End Sub

Sub Copy_Columns()
 
    Dim i As Integer, c As Integer, iCnt As Long
    Dim sh As Worksheet, newSh As Worksheet
 
    Debug.Print Now
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
 
    Set sh = ActiveSheet
    Set newSh = Worksheets.Add
 
    With sh.UsedRange
        c = .Column + .Columns.Count - 1
    End With
 
    For i = 1 To c
        If Not IsError(Application.Match("LOWER_A_R-NAME", sh.Columns(i), 0)) _
        Or Not IsError(Application.Match("LOWER_A_L-NAME", sh.Columns(i), 0)) _
        Or Not IsError(Application.Match("LOWER_B_L-NAME", sh.Columns(i), 0)) _
        Or Not IsError(Application.Match("LOWER_B_R-NAME", sh.Columns(i), 0)) _
        Or Not IsError(Application.Match("UPPER_A_L-NAME", sh.Columns(i), 0)) _
        Or Not IsError(Application.Match("UPPER_A_R-NAME", sh.Columns(i), 0)) _
        Or Not IsError(Application.Match("UPPER_B_L-NAME", sh.Columns(i), 0)) _
        Or Not IsError(Application.Match("UPPER_B_R-NAME", sh.Columns(i), 0)) Then
            iCnt = iCnt + 1
            sh.Columns(i).Copy newSh.Cells(1, iCnt)
        End If
 
 
    Next i
 
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Debug.Print Now
 
End Sub