Macro to filter, copy, paste data then delete copied rows

[sdharlow]

I have a workbook that I take a Mastersheet of data, and then filter it into 6 seperate worksheets. Each time I filter it is for data in different columns of the mastersheet. once I copy and paste that data, I want it to delete those rows from the Mastersheet. So right now my macro does this 6 times.

The problem I seem to be having is in the data deletion. Here is one of the six times my Macro does this.

ActiveSheet.Range("$A$1:$M$2635").AutoFilter Field:=12, Criteria1:=Array( _
"Approved", "Buy-off Completed", "Conditionally Approved"), Operator:= _
xlFilterValues
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Approved").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Has No PO").Select
Rows("2:2635").Select
Range("A2635").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

The data changes in the columns of the Mastersheet, and when it does, my data deletion sometimes misses rows at the top and or bottom of the sheet. Could definitely use some help here.

 

[JLGWhiz]

You can replace all of this:

Rows("2:2635").Select
Range("A2635").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

With this:

Rows("2:2635").Delete Shift:=xlUp

Move the Application.CutCopyMode = False line to below The ActiveSheet.Paste line