Below is the entire code for my macro and all I am really doing is formatting a spreadsheet from LARGE to APPLICABLE info.
by the way, the binary joke made me laugh outloud
Selection.Sort Key1:=ActiveCell.Offset(0, 3).Range("A1"), Order1:= _
xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="CA"
ActiveCell.Offset(12, 0).Rows("1:39").EntireRow.Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=4
ActiveWindow.SmallScroll ToRight:=12
ActiveCell.Offset(0, 16).Columns("A:E").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.LargeScroll ToRight:=-2
ActiveCell.Offset(0, -16).Range("A1").Select
ActiveCell.FormulaR1C1 = "CUSTOMER"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "ADDRESS"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "ST"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "ZIP"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "BRANCH"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "ACCT #"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "PRODUCT"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "DESCRIPTION"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "DOCUMENT"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "SRV DATE"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "QTY"
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveCell.FormulaR1C1 = "CHAIN"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Cells.Select
Selection.AutoFilter
ActiveCell.Offset(-5, 0).Rows("1:1").EntireRow.Select
ActiveCell.Offset(-5, -9).Range("A1").Activate
Selection.AutoFilter
ActiveCell.Cells.Select
ActiveCell.Activate
Selection.Sort Key1:=ActiveCell.Offset(0, 11).Range("A1"), Order1:= _
xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Selection.Sort Key1:=ActiveCell.Offset(0, 11).Range("A1"), Order1:= _
xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
Selection.AutoFilter
Selection.AutoFilter Field:=12, Criteria1:="<2", Operator:=xlAnd
ActiveCell.Offset(155, 0).Rows("1:129").EntireRow.Select
Selection.ClearContents
Selection.AutoFilter Field:=12
ActiveCell.Offset(-155, 0).Rows("1:1").EntireRow.Select
Selection.AutoFilter
ActiveCell.Cells.Select
Selection.Sort Key1:=ActiveCell.Offset(0, 7).Range("A1"), Order1:= _
xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub