VBA Befehle manuell anstatt automatisch

Hallo zusammen

Könnten mir bitte jemand das coding unten so anpassen. Dass es nur ausgeführt wird, wenn man auf Play oder einen Button klickt. Zurzeit wird es immer automatisch im Arbeitsblatt ausgeführt.


Modul:

Public Sub Zeile_verschieben_2(s1 As Worksheet, c1 As Range)

    Dim s2 As Worksheet

    If ((c1.Cells.Count = 1) And (c1.Column = 21)) Then
        Select Case c1.Value
            Case "":
                Set s2 = Nothing
            Case "Bezahlt":
                Set s2 = Worksheets("Bezahlte_Bestellungen")
            ' ...
            Case Else
                Set s2 = Nothing
                MsgBox "Gibt ein Zahlungsfehler"
        End Select
        If (Not s2 Is Nothing) Then
            s1.Rows(c1.Row).Cut Destination:=s2.Rows(s2.Cells(65536, 1).End(xlUp).Row + 1)
        End If
    End If

End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Zeile_verschieben_2 ActiveSheet, Target

End Sub