I need macro/vba help: Code to refresh pivot table!!

I'm relatively new to vba and require some help constructing a code .

objective: i have a huge set of data 200k+ rows which is updated monthly, each time a new report is ran there is a template sheet where i drop the data and have to manually update three pivot tables linked to it that then do a find remove on one column to get rid of a set list of text. The second stage is to update and refresh the individual pivot tables and then copy this data into a summary.

All I want to do is to be able to put all that into a code so each month i don't have to do the repetitive task of manually removing the same text and refreshing the table etc

Anyone know how?

a common sense move , thanks TMS

Apologies if the below is asking too much as I am a novice to VBA and trying to catch up quickly.
The below is the ‘embryo code’ generated from a recorded macro. Numerous attempts to edit this myself has caused various compile errors so I’m at my wits end.

Please help!!
The objective I want to achieve is to have a button that the user presses once they have entered data into columns l to V the data quantity is upwards of 300k rows each time so filters have been applied from columns A-K.

Once data is entered I want the code to find and replace specific references in column k which removes part of the text. In this example _yes, _no, _maybe. It’s safe to assume these variables will always be at the end of the text. I then want to make sheet two which is the pivot table which will be hidden to appear and refresh .

Then copy and paste special values all that data into a new sheet change ‘Key2’ values to be in a specific order and then copy and paste the data values and key amounts only (without headers) into a set template.
The stages up to this point are quite repetitive hence the need for the coding
There are various pivot tables that will need refreshing and data copied into different sheets relevant to each pivot table so any instructions you can add to the code to help me identify what i can modify would help.

The user will then have instructions of how to manually manipulate the set template only.

Sub Embryo_code()
'
' Embryo_code Macro
'
' Keyboard Shortcut: Ctrl+r
'
    Range("P8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("K8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="_yes", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="_no", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="_maybe", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A7").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    sheets.Add
    ActiveWorkbook.Worksheets("Sheet6").PivotTables("PivotTable2").PivotCache. _
        CreatePivotTable TableDestination:="Sheet2!R3C1", TableName:="PivotTable1" _
        , DefaultVersion:=xlPivotTableVersion14
    sheets("Sheet2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("PK Tariff")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("PK Fuel")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("RC Prod Type")
        .Orientation = xlRowField
        .Position = 3
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("RC Charge")
        .Orientation = xlRowField
        .Position = 4
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Key4")
        .Orientation = xlRowField
        .Position = 5
    End With
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Key11"), "Count of Key11", xlCount
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Key2")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of Key11")
        .Caption = "Sum of Key11"
        .Function = xlSum
    End With
    ActiveWindow.SmallScroll Down:=9
    Range("A19").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Key4").Subtotals = Array( _
        False, False, False, False, False, False, False, False, False, False, False, False)
    Range("B33").Select
    With ActiveSheet.PivotTables("PivotTable1")
        .InGridDropZones = True
        .RowAxisLayout xlTabularRow
    End With
    Range("B21").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("PK Fuel").Subtotals = Array _
        (False, False, False, False, False, False, False, False, False, False, False, False)
    Range("A25").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("PK Tariff").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)
    Range("C24").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("RC Prod Type").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)
    Range("D21").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("RC Charge").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)
    Range("I25").Select
    ActiveWindow.SmallScroll Down:=-36
    Cells.Select
    Selection.Copy
    sheets.Add After:=sheets(sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G5").Select
    Columns("E:E").EntireColumn.AutoFit
    sheets("Sheet3").Select
End Sub

Thanks Richard Buttrey - this works perfectly