Запуск/продолжение выполнения макроса по изменению ячейки

If Uslovie Then
    Call CommandButton1_Click
    Call Макрос2
Else
    If C2Changed And Me.[C2] = Me.[K1] Then
        Call CommandButton1_Click
        Call Макрос2
    End If
End If

Sub Макрос2()
    Application.Calculation = xlCalculationManual
    Dim Ar, i%, k%
    Ar = ActiveSheet.[C2:H225]
    Application.CutCopyMode = False
    ActiveSheet.[C2:H225].Copy
    Workbooks.Add
    With ActiveSheet
        .[A1:F224].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        For i = 4 To 224
            k = Len(Ar(i, 1))
            If k > 6 Then Ar(i, 1) = Right(Ar(i, 1), Len(Ar(i, 1)) - 6)
            k = Len(Ar(i, 4))
            If k > 6 Then Ar(i, 4) = Right(Ar(i, 4), Len(Ar(i, 4)) - 6)
        Next
        .[A1:F224] = Ar
    End With
    ChDir "S:\РСЛ\Тульчин"
    ActiveWorkbook.SaveAs Filename:="S:\РСЛ\Тульчин\Тульчин.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    Application.Calculation = xlCalculationAutomatic
    ActiveWindow.Close
    ActiveWindow.Close
End Sub