Auto code to manual

[Robandemmy]

Hello,

I have the following code that completes it's function automatically when a cell's value equals "Cancelled".

Private Sub Worksheet_Change(ByVal Target As Range)
'Version 2
If Not Intersect(Target, Range("L:L")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Lastrow = Sheets("Cancelled").Cells(Rows.Count, "L").End(xlUp).Row + 1

If Target.Value = "Cancelled" Then
Rows(Target.Row).Copy Destination:=Sheets("Cancelled").Rows(Lastrow)
Rows(Target.Row).Delete
End If
End If
End Sub

My question is, how can I edit this code to only trigger on the click of a button?

Thanks!

 

[Logit]

.
Paste the following into a Routine Module :

Option Explicit


Sub EqualCancelled()


If Not Intersect(Target, Range("L:L")) Is Nothing Then


    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
        Dim Lastrow As Long
        Lastrow = Sheets("Cancelled").Cells(Rows.Count, "L").End(xlUp).Row + 1
        
        If Target.Value = "Cancelled" Then
            Rows(Target.Row).Copy Destination:=Sheets("Cancelled").Rows(Lastrow)
            Rows(Target.Row).Delete
        End If
End If

End Sub

 

[Robandemmy]

I get the following error:

Compile error:

Variable not defined