Cut and Paste Macro?!?!

[SDave]

Would anyone happen to know of or have a cut and paste macro?!

Within my current workbook, I have 4 tabs. I would like data to be cut and transferred from the Data tab to the Leavers tab when column M (within the Data tab) is populated with the word "Yes", subsequently shifting the data up one whilst keeping the said range mentioned below.

Column M's range is M11:M5001
The row range within the Data tab is C11:M5001
The row range within the Leavers tab is C11:M5001

Any help would be much appreciated.

I have searched high and low and I can't seem to find what it is I am after.

 

[VoG]

Try this: right click the Data sheet's tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 Then
    If LCase(Target.Value) = "yes" Then
        Application.EnableEvents = False
        Range("C" & Target.Row).Resize(, 10).Copy Destination:=Sheets("Leavers").Range("C" & Rows.Count).End(xlUp).Offset(1)
        Target.EntireRow.Delete
        Application.EnableEvents = True
    End If
End If
End Sub

Then press ALT + Q to return to the sheet.

 

[SDave]

Thanks VoG - much appreciated. It worked a charm!!!