Here's my recording
Sub Macro1()
'
' Macro1 Macro
' Report set up
'
' Keyboard Shortcut: Ctrl+Shift+W
'
ActiveSheet.Range("$A$1:$DM$4494").AutoFilter Field:=116, Criteria1:= _
"CNC"
Rows("1303:1303").Select
Range("CT1303").Activate
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$DM$4493").AutoFilter Field:=116, Criteria1:= _
"Night"
Range("A1322").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Sheets("Night").Select
Range("A2").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Raw Data").Select
Application.CutCopyMode = False
Rows("1322:1426").Select
Range("CU1322").Activate
Selection.Delete Shift:=xlUp
End Sub