I have a timesheet spreadsheet and I have to subtotal things and than remove or hide the subtotals. I go through my macro but when I replay it the steps I did to remove the macros and clear the contents does not happen, and it garbles the entries for the last two employees on the list. There don't appear to be any errors in the VBA.

Sub NEWNEWTIMESHEET()
'
' NEWNEWTIMESHEET Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
Cells.Select
Cells.EntireColumn.AutoFit
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:D").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft
Columns("J:J").Select
Selection.Delete Shift:=xlToLeft
Columns("K:P").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$V$235").AutoFilter Field:=8, Criteria1:= _
"Lunch Break"
Rows("4:232").Select
Range("A232").Activate
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-215
ActiveSheet.Range("$A$1:$V$190").AutoFilter Field:=8
Cells.Select
Selection.AutoFilter
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "name"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=CONCAT(RC[1],"" "",RC[2])"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A190")
Range("A2:A190").Select
ActiveWindow.SmallScroll Down:=171
Selection.AutoFill Destination:=Range("A2:A300"), Type:=xlFillDefault
Range("A2:A300").Select
ActiveWindow.SmallScroll Down:=-265
Columns("B:C").Select
Selection.EntireColumn.Hidden = True
Cells.Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(1, 23), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
Selection.EntireRow.Insert
Range( _
"1:1048576,X32,B52,X52,B71,X71,B92,X92,B107,X107,B131,X131,B155,X155,B171,X171,B199,X199,B310,X310" _
).Select
Range("B32").Activate
ActiveWindow.DisplayOutline = False
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
Selection.ClearContents
Columns("A:A").Select
Selection.Columns.AutoFit