Good Morning

I'm still somewhat new to programming in general, but am learning as I go. For VBA, I usually record the macro in Excel, then go step by step to see what each line's doing, and the end result is to be able to understand the language and write my own programs. I recorded something this morning, but when I step into it to check what each line does, it errors out. I'm not sure why, because it's line-for-line what Excel wrote. Most of it is pretty basic, using replace all and basic formatting. The complete code is posted below. The line causing the error is

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)

Any help or assistance is appreciated.

    Cells.Replace What:="121", Replacement:="121 (HQBN)", LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="193", Replacement:="193 (1ST CEB)", LookAt:=xlWhole _
        , SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="19D", Replacement:="19D (1ST TANKS)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="19E", Replacement:="19E (D CO 3D AABN)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="19F", Replacement:="19F (3D AABN)", LookAt:=xlWhole _
        , SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="1F7", Replacement:="1F7 (HQ 7TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="1FA", Replacement:="1FA (3D CEB)", LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="1GR", Replacement:="1GR (1ST LAR)", LookAt:=xlWhole _
        , SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="1GT", Replacement:="1GT (3D LAR)", LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="1NE", Replacement:="1NE (1ST BN 11TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="1NF", Replacement:="1NF (2D BN 11TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="1NG", Replacement:="1NG (3D BN 11TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="1NH", Replacement:="1NH (5TH BN 11TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="1NP", Replacement:="1NP (HQ 11TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="1R1", Replacement:="1R1 (1ST RECON)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="1RS", Replacement:="1RS (HQ 1ST MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="1RU", Replacement:="1RU (HQ 5TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="1SD", Replacement:="1SD (MP CO HQBN)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V11", Replacement:="V11 (1ST BN 1ST MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V14", Replacement:="V14 (1ST BN 4TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V15", Replacement:="V15 (1ST BN 5TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V17", Replacement:="V17 (1ST BN 7TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V21", Replacement:="V21 (2D BN 1ST MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V24", Replacement:="V24 (2D BN 4TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V25", Replacement:="V25 (2D BN 5TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V27", Replacement:="V27 (2D BN 7TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V31", Replacement:="V31 (3D BN 1ST MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V34", Replacement:="V34 (3D BN 4TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V35", Replacement:="V35 (3D BN 5TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Cells.Replace What:="V37", Replacement:="V37 (3D BN 7TH MAR)", LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False _
        , ReplaceFormat:=False
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Range("A1:R1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = "OFFICER MOS NUMBERS"
    Range("A1:R2").Select
    Selection.Font.Bold = True
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("A2").Select
    Selection.AutoFilter
    Range("A3").Select
    ActiveWindow.FreezePanes = True
    Cells.Select
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    Range("A1:R1").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R2C1:R1261C18").CreatePivotTable TableDestination:="", TableName:= _
        "PivotTable4", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable4").PivotFields("MCC")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable4").PivotFields("MOS")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
        "PivotTable4").PivotFields("LAST 4 SSN"), "Count of LAST 4 SSN", xlCount
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "Numbers"
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Names"