code to copy and rename 2 Worksheets at same time and maintain formulas

hi

here are the codes i can get this to work separately with

Copy without renaming nut maintain grouped status

Sub copy()
'
' copy Macro
'

'
    Sheets(Array("Cash Up WK 1", "Weekly Rec WK 1")).Select
    Sheets("Cash Up WK 1").Activate
    Sheets(Array("Cash Up WK 1", "Weekly Rec WK 1")).copy Before:=Sheets(5)
End Sub

And

Copy and Rename but maintain formulas to template worksheet

Public Sub SheetCopy()
Dim Sh As Worksheet, TemplateSh As Worksheet
Dim ShNum As Integer, HighestNum As Integer
Dim SheetCoreName As String

' INDICATE THE CORE SHEET NAME
SheetCoreName = "Cash Up WK "

' INDICATE THE SOURCE SHEET
Set TemplateSh = Sheets("Cash Up WK")


' DETERMINE NEXT NUMBER FOR SHEET
For Each Sh In Worksheets
If InStr(1, Sh.Name, SheetCoreName) = 1 Then
    ShNum = Val(Right(Sh.Name, Len(Sh.Name) - Len(SheetCoreName)))
    If ShNum > HighestNum Then HighestNum = ShNum
End If
Next Sh

' COPY TEMPLATE
TemplateSh.copy after:=Sheets(Sheets.Count)

' MAKE VISIBLE
ActiveSheet.Visible = xlSheetVisible

' RENAME
ActiveSheet.Name = SheetCoreName & HighestNum + 1

End Sub

Public Sub SheetCopy1()
Dim Sh As Worksheet, TemplateSh As Worksheet
Dim ShNum As Integer, HighestNum As Integer
Dim SheetCoreName As String

' INDICATE THE CORE SHEET NAME
SheetCoreName = "Weekly Rec WK "

' INDICATE THE SOURCE SHEET
Set TemplateSh = Sheets("Weekly Rec WK")


' DETERMINE NEXT NUMBER FOR SHEET
For Each Sh In Worksheets
If InStr(1, Sh.Name, SheetCoreName) = 1 Then
    ShNum = Val(Right(Sh.Name, Len(Sh.Name) - Len(SheetCoreName)))
    If ShNum > HighestNum Then HighestNum = ShNum
End If
Next Sh

' COPY TEMPLATE
TemplateSh.copy after:=Sheets(Sheets.Count)

' MAKE VISIBLE
ActiveSheet.Visible = xlSheetVisible

' RENAME
ActiveSheet.Name = SheetCoreName & HighestNum + 1

End Sub

Any help would be greatly apreciated

Craig