Want to use Macro on any worksheet

Hi guys,

please tell me someone can help. I've run this Macro and I want to be able to use it on any sheet - not just Sheet5 and Sheet 6.

Could anyone please help?

Thank you!!!

PHP Code: 

Sheets.Add After:=ActiveSheet
    Sheets("2a. Fixed - Cost Forecast").Select
    Cells.Select
    Selection.Copy
    Sheets("Sheet5").Select
    ActiveSheet.Paste
    Rows("4:4").Select
    Range("D4").Activate
    Application.CutCopyMode = False
    Selection.AutoFilter
    Columns("E:AG").Select
    Selection.Delete Shift:=xlToLeft
    Rows("1:3").Select
    Range("A3").Activate
    Selection.Delete Shift:=xlUp
    Cells.Select
    Selection.AutoFilter
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$BT$157").AutoFilter Field:=4, Criteria1:="="
    Rows("5:5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Rows("1:1").Select
    Selection.AutoFilter
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Range("AB1").Select
    ActiveCell.FormulaR1C1 = "Total"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Partner"
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).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
    Range(Selection, Selection.End(xlDown)).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
    Range(Selection, Selection.End(xlDown)).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
    Range(Selection, Selection.End(xlDown)).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
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1:AB1048575").Select
    Range(Selection, Selection.End(xlUp)).Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet5!R1C1:R129C28", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="Sheet6!R3C1", TableName:="PivotTable8", DefaultVersion _
        :=xlPivotTableVersion15
    Sheets("Sheet6").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable8").PivotFields("Partner")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub 


Thanks. Should be done now.