Reuse Macro on Several sheets with Different Sheet names

I am hoping someone can help. This is probably basic but I am stuck and cannot seem to get it right.
I have a macro that creates a copy of template worksheet. The purpose of this is so that I can remove the linked formulas so that the created worksheet remains fixed.

This process is repeated over and over again to capture singular events through time. The Names of these created worksheets are set by the user (but for the sake of this tread I am calling them Project 1, Project 2, etc.)

At a point in the future I want to go into these fixed sheets and copy and paste portions of them back to another template that I use as an ouput document (within the same workbook). So I need a macro that I can reuse that essentially does the same process, but whos active sheet name is variable.

So for example; the worksheet Project 1 is one of the sheets I want to execute the macro from. I do not want the macro to execute from all of them just the active one. The macro will always refer back to the template worksheet TeamMemberMaster.

Here is sample of the code

Sheets("Project 1").Select
    Range("B9:Q9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TeamMemberMaster").Select
    Range("B93:Q93").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("Project 1").Select
    Range("B11:Q11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TeamMemberMaster").Select
    Range("B95:Q95").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

What I need is to make the macro work from ANY of the Project sheets (not just Project 1). Any help is appreciated.

One way, this will copy FROM the currently activesheet to the template:

Sub Example()

With ActiveSheet
    .Range("B9:Q9").Copy
    Sheets("TeamMemberMaster").Range("B93:Q93").PasteSpecial Paste:=xlPasteValues

    .Range("B11:Q11").Copy
    Sheets("TeamMemberMaster").Range("B95:Q95").PasteSpecial Paste:=xlPasteValues
End With

End Sub