Скопируйте, переименуйте и обновите шаблон листа

Question

Я могу скопировать шаблон и переименовать на основе списка с кодом ниже. Но я не могу понять, как я могу взять значения из листа 2 и обновить копии шаблона. Как и в каждом шаблоне, я хочу обновить ячейку B3 на основе списков в листе 2, столбец B. Снова в шаблонах ячейка C6 должна быть обновлена ​​из значений в листе 2, столбец c. Большое спасибо за вашу поддержку.

Sub CopySheet()

Dim i As Long, LastRow As Long, ws As Worksheet

Sheets("Sheet2").Activate

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To LastRow

    Sheets("Sheet1").Copy After:=Sheets(i)

    ActiveSheet.Name = Sheets("Sheet2").Cells(i, 1)

Next i

End Sub

Answer 1

С кодом от @ GMal c Я отредактировал код и протестировал его. Это работает так, думал, я выложу это здесь. Весь кредит идет на @ Gmal c

Sub CopySheet()
Dim i As Long, LastRow As Long, ws As Worksheet
Sheets("Sheet2").Activate
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
    Sheets("Sheet1").Copy After:=Sheets(i)
    ActiveSheet.Name = Sheets("Sheet2").Cells(i, 1)
    ActiveSheet.Range("C2").Value = Sheets("Sheet2").Cells(i, 2)
    ActiveSheet.Range("C5").Value = Sheets("Sheet2").Cells(i, 3)
Next i
End Sub