Sub BurroughsPlanningMacro()
'
' BurroughsPlanningMacro Macro
'
'On Error Resume Next

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Borroughs Planning Report\Mid-States Planning Rpt - Database.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Sheets("Mid-States Planning Rpt").Select
    Sheets("Mid-States Planning Rpt").Name = "Sheet1"
    Range("A1:D3").Select
    Rows("1:3").Select
    Range("E1").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Cells.Select
    With Selection
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("E:F,K:K").Select
    Range("K1").Activate
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    With Selection.Font
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Selection.ColumnWidth = 54.14
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    Rows("1:1").Select
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    Columns("B:B").Select
    Selection.Replace What:="XXX", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("D2:D500").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
    Range("D3").Select
    Columns("D:D").EntireColumn.AutoFit
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D2:D500"), Type:=xlFillDefault
    Range("D2:D500").Select
    ActiveWindow.ScrollRow = 482
    ActiveWindow.ScrollRow = 479
    ActiveWindow.ScrollRow = 477
    ActiveWindow.ScrollRow = 475
    ActiveWindow.ScrollRow = 464
    ActiveWindow.ScrollRow = 460
    ActiveWindow.ScrollRow = 454
    ActiveWindow.ScrollRow = 442
    ActiveWindow.ScrollRow = 435
    ActiveWindow.ScrollRow = 427
    ActiveWindow.ScrollRow = 416
    ActiveWindow.ScrollRow = 396
    ActiveWindow.ScrollRow = 388
    ActiveWindow.ScrollRow = 376
    ActiveWindow.ScrollRow = 346
    ActiveWindow.ScrollRow = 336
    ActiveWindow.ScrollRow = 326
    ActiveWindow.ScrollRow = 298
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 118
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 285
    ActiveWindow.ScrollRow = 321
    ActiveWindow.ScrollRow = 341
    ActiveWindow.ScrollRow = 366
    ActiveWindow.ScrollRow = 377
    ActiveWindow.ScrollRow = 386
    ActiveWindow.ScrollRow = 410
    ActiveWindow.ScrollRow = 418
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 453
    ActiveWindow.ScrollRow = 457
    ActiveWindow.ScrollRow = 446
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 435
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 410
    ActiveWindow.ScrollRow = 404
    ActiveWindow.ScrollRow = 396
    ActiveWindow.ScrollRow = 378
    ActiveWindow.ScrollRow = 372
    ActiveWindow.ScrollRow = 365
    ActiveWindow.ScrollRow = 349
    ActiveWindow.ScrollRow = 343
    ActiveWindow.ScrollRow = 337
    ActiveWindow.ScrollRow = 331
    ActiveWindow.ScrollRow = 319
    ActiveWindow.ScrollRow = 316
    ActiveWindow.ScrollRow = 310
    ActiveWindow.ScrollRow = 301
    ActiveWindow.ScrollRow = 295
    ActiveWindow.ScrollRow = 288
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 200
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 2
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Their ID"
    Columns("D:D").ColumnWidth = 15
    Rows("1:1").EntireRow.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Range("A1").Select
    
    ActiveWorkbook.Save
End Sub