Have VBA code that needs performed in multiple sheets. Also help being sure code is clean

**baby_kay_2003** · 10-15-2014, 12:35 AM

I have a VBA that I need to perform in multiple sheets in my workbook. Also would like help being sure code is as cleaned up as possible.
I need the below code performed in 2 of the 4 sheets in my workbook(for now. a third will be added soon). The sheets are Lawton and Sherman. The sheets in workbook not needing this code are Des Monies and Cedar Rapids. I have tried many options I have seen online and cannot seem to get it correct. As you can probably tell I am new to this. lol.

ub NationalRateMarkets()

Application.ScreenUpdating = False

    Range("A1:C1").Insert Shift:=xlToRight
    Range("E1").Insert Shift:=xlToRight
    Range("F:D,L:L,R:R").ColumnWidth = 12
    Columns("X:X").ColumnWidth = 13
    Range("P:P,AG:AH").ColumnWidth = 17
    Range("G3:H3").MergeCells = False
    Range("G3").Copy
    Range("H3").Select
    ActiveSheet.Paste
    Range("AC3:AD3").MergeCells = False
    Range("AC3").Copy
    Range("AD3").Select
    ActiveSheet.Paste
    Range("A:C,E:E,G:G,I:J,M:O,Q:Q,S:W,Z:Z,AC:AC,AE:AF,AI:AJ,AM:AN").Delete Shift:=xlToLeft
    Columns("H:H").Copy
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    
    Range("A3:Q3").AutoFilter field:=9, Criteria1:="="
    Rows("6:9000").Delete
    Selection.AutoFilter field:=9, Criteria1:="$-"
    Selection.AutoFilter field:=5, Criteria1:="RESIDENTIAL"
    Selection.AutoFilter field:=14, Criteria1:="="
    Selection.AutoFilter field:=2, Criteria1:="=*install", Operator:=xlAnd
    Columns("I:I").Replace What:="0", Replacement:="65"
    Columns("H:H").Replace What:="0", Replacement:="65"
    Selection.AutoFilter field:=2, Criteria1:="Service"
    Columns("I:I").Replace What:="0", Replacement:="60"
    Columns("H:H").Replace What:="0", Replacement:="25"
    Range("B3").AutoFilter field:=2, Criteria1:="Upgrade"
    Columns("I:I").Replace What:="0", Replacement:="41"
    Columns("H:H").Replace What:="0", Replacement:="20"
    Selection.AutoFilter field:=2
    Selection.AutoFilter field:=14, Criteria1:="WIFI BB DECA"
    Columns("I:I").Replace What:="0", Replacement:="10"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14, Criteria1:="ADDITIONAL LABOR"
    Columns("I:I").Replace What:="0", Replacement:="32"
    Columns("H:H").Replace What:="0", Replacement:="15"
    Selection.AutoFilter field:=14, Criteria1:="BROADBAND DECA"
    Columns("I:I").Replace What:="0", Replacement:="28"
    Columns("H:H").Replace What:="0", Replacement:="15"
    Selection.AutoFilter field:=14, Criteria1:="SECOND LINE DVR"
    Columns("I:I").Replace What:="0", Replacement:="30"
    Columns("H:H").Replace What:="0", Replacement:="10"
    Selection.AutoFilter field:=14, Criteria1:="PROTECTION PLAN PREMIER ADH"
    Columns("I:I").Replace What:="0", Replacement:="7"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14, Criteria1:="PROTECTION PLAN PREMIER"
    Columns("I:I").Replace What:="0", Replacement:="7"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14, Criteria1:="PROTECTION PLAN"
    Columns("I:I").Replace What:="0", Replacement:="4"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14, Criteria1:="ODU UPGRADE"
    Columns("I:I").Replace What:="0", Replacement:="30"
    Columns("H:H").Replace What:="0", Replacement:="10"
    Selection.AutoFilter field:=14, Criteria1:="ODU RELOCATE"
    Columns("I:I").Replace What:="0", Replacement:="32"
    Columns("H:H").Replace What:="0", Replacement:="10"
    Selection.AutoFilter field:=14, Criteria1:="ODU - 36"""
    Columns("I:I").Replace What:="0", Replacement:="35"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14, Criteria1:="NON DIRECTV EQUIPMENT"
    Columns("I:I").Replace What:="0", Replacement:="28"
    Columns("H:H").Replace What:="0", Replacement:="15"
    Selection.AutoFilter field:=14, Criteria1:="NOMAD LABOR"
    Columns("I:I").Replace What:="0", Replacement:="40"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14, Criteria1:="MULTI-SWITCH SWM 16"
    Columns("I:I").Replace What:="0", Replacement:="8"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14, Criteria1:="KA/KU LNB SWM LABOR"
    Columns("I:I").Replace What:="0", Replacement:="12"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14, Criteria1:="KA/KU LNB LABOR"
    Columns("I:I").Replace What:="0", Replacement:="22"
    Columns("H:H").Replace What:="0", Replacement:="10"
    Selection.AutoFilter field:=14, Criteria1:="INTERNAL DECA"
    Columns("I:I").Replace What:="0", Replacement:="10"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14
    Selection.AutoFilter field:=15, Criteria1:="WIRELESS VIDEO BRIDGE"
    Columns("I:I").Replace What:="0", Replacement:="28"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=15
    Selection.AutoFilter field:=2, Criteria1:="=*install", Operator:=xlAnd
    Selection.AutoFilter field:=15, Criteria1:="=ird*", Operator:=xlAnd
    Columns("I:I").Replace What:="0", Replacement:="28"
    Columns("H:H").Replace What:="0", Replacement:="15"
    Selection.AutoFilter field:=2, Criteria1:="Upgrade"
    Selection.AutoFilter field:=13, Criteria1:="New"
    Columns("I:I").Replace What:="0", Replacement:="28"
    Columns("H:H").Replace What:="0", Replacement:="15"
    Selection.AutoFilter field:=13
    Selection.AutoFilter field:=12, Criteria1:="Relocated"
    Columns("I:I").Replace What:="0", Replacement:="28"
    Columns("H:H").Replace What:="0", Replacement:="15"
    Selection.AutoFilter field:=12
    Selection.AutoFilter field:=12, Criteria1:="Installed"
    Selection.AutoFilter field:=12
    Selection.AutoFilter field:=13, Criteria1:="=*swap*", Operator:=xlAnd
    Selection.AutoFilter field:=15, Criteria1:="=ird**", Operator:=xlAnd
    Columns("I:I").Replace What:="0", Replacement:="5"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=13
    Selection.AutoFilter field:=14
    Selection.AutoFilter field:=15
    Selection.AutoFilter field:=9
    Selection.AutoFilter field:=2
    Selection.AutoFilter field:=9
    Selection.AutoFilter field:=5, Criteria1:="COMMERCIAL"
    Selection.AutoFilter field:=14, Criteria1:="ODU RELOCATE"
    Columns("I:I").Replace What:="0", Replacement:="78"
    Columns("H:H").Replace What:="0", Replacement:="10"
    Selection.AutoFilter field:=14, Criteria1:="ODU UPGRADE"
    Columns("I:I").Replace What:="0", Replacement:="78"
    Columns("H:H").Replace What:="0", Replacement:="10"
    Selection.AutoFilter field:=14, Criteria1:="KA/KU LNB SWM LABOR"
    Columns("I:I").Replace What:="0", Replacement:="52.80"
    Columns("H:H").Replace What:="0", Replacement:=""
    Selection.AutoFilter field:=14
    Selection.AutoFilter field:=14, Criteria1:="="
    Selection.AutoFilter field:=2, Criteria1:="Upgrade"
    Columns("I:I").Replace What:="0", Replacement:="40"
    Columns("H:H").Replace What:="0", Replacement:="30"
    Selection.AutoFilter field:=2, Criteria1:="=*install", Operator:=xlAnd
    Columns("I:I").Replace What:="0", Replacement:="147"
    Columns("H:H").Replace What:="0", Replacement:="80"
    Selection.AutoFilter field:=2, Criteria1:="=**service*", Operator:=xlAnd
    Columns("I:I").Replace What:="0", Replacement:="87"
    Columns("H:H").Replace What:="0", Replacement:="35"
    Selection.AutoFilter field:=2
    Selection.AutoFilter field:=14
    Selection.AutoFilter field:=15, Criteria1:="=ird*", Operator:=xlAnd
    Selection.AutoFilter field:=13, Criteria1:="New"
    Columns("I:I").Replace What:="0", Replacement:="78"
    Columns("H:H").Replace What:="0", Replacement:="15"
    Selection.AutoFilter field:=15
    Selection.AutoFilter field:=13
    Selection.AutoFilter field:=5
    Selection.AutoFilter field:=15, Criteria1:="WIRELESS VIDEO BRIDGE"
    Selection.AutoFilter field:=15, Criteria1:="IRD - WIRELESS CLIENT"
    Columns("I:I").Replace What:="28", Replacement:="10"
    Columns("H:H").Replace What:="15", Replacement:="10"
    Selection.AutoFilter
    
    Cells.Select
        Cells.Font.Size = "10"
        Cells.Font.Name = "Arial"
        Cells.HorizontalAlignment = xlLeft
        Cells.VerticalAlignment = xlCenter
        Cells.RowHeight = 15
    Range("A1:B1,A3:Q3").Select
        Selection.Font.Bold = True
        Cells.HorizontalAlignment = xlCenter
        Cells.RowHeight = 18
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
    Columns("H:I").NumberFormat = "_($* ###0.00_);_($* (###0.00);_($* ""-""??_);_(@_)"
    Columns("R:R").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
    ActiveWorkbook.Save
    
Application.ScreenUpdating = True

End Sub

Any help would be greatly appreciated!!!