Create Sheets from column values, and insert values in column in specific cells on each sheet - excel

Question

I found a macro that reads values in Column A on "Sheets Insert", creates individual worksheets based on those values, and then copies "Template" to each new page.
Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("Sheets Insert")
Application.ScreenUpdating = 0
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Sheets("Template").Copy Before:=sh
ActiveSheet.Name = sh.Range("A" & i).Value
Next i
End Sub
It works great.
So the next step for me is to take the value the worksheet was created from in Column A of "Sheets Insert", and insert that value at G3 of the created worksheet.
Then I need it to take the value in the same row in column B of "Sheets Insert" and copy it into C3 on that page.
So for example:
"Sheets insert"
Column A | Column B
Motor A 12345
Motor B 23456
Code creates sheet Motor A and pastes Motor A to [g3] and pastes 12345 to [c3] on Motor A sheet.
Code creates sheet Motor B and pastes Motor B to [g3] and pastes 23456 to [c3] on Motor B sheet.
And so on down the list. I searched for a couple of hours and had no luck. Hoping someone can help. Thanks.

Answer 1

If i understood your question you have to add two rows of the code:
Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("Sheets Insert")
Application.ScreenUpdating = 0
For i = 2 To Range("A" & rows.count).End(xlUp).Row
Sheets("Template").Copy Before:=sh
ActiveSheet.Name = sh.Range("A" & i).Value
'add code
Range("G3") = sh.Range("A" & i) 'copy name into cell G3
Range("C3") = sh.Range("B" & i) ' copy data into cell C3
Next i
End Sub
Hope this helps