Macro to add sequential WS and update summary

[mdmackillop]

Version 2

[VBA]
Sub TASupdate(Num As Long, TAS As Worksheet, ws As Worksheet)
Dim Rng As Range, i As Long, col As Long
Columns("C").Copy
Range("C1").Insert Shift:=xlToRight
Columns("C").Select
Selection.Replace What:="Week " & Num, Replacement:="Week " & Num + 1, LookAt:=xlPart, MatchCase:=False
Selection.Replace What:="!B", Replacement:="!D", LookAt:=xlPart, MatchCase:=False
TAS.Cells(3, 3) = ws.Range("B32") + 1
For i = 2 To 79 Step 11
TAS.Range("B" & i).FormulaR1C1 = "=(R[9]C" & 4 & "+R[9]C" & 6 & "+R[9]C" & 8 & ")/3"
Next
TAS.Range("B92").FormulaR1C1 = "=(RC" & 4 & "+RC" & 6 & "+RC" & 8 & ")/3"
TAS.Range("A1").Select
End Sub

[/VBA]