Create copies of original workbook inputting new data from list - excel

Question

Trying to copy my original worksheet but with different data for as many items in a list/array.
My original worksheet is formatted in such a way it references the cells in the data array worksheet.
For example
TEST TIME Output1 Output2
A 3 5 9
. . . .
. . . .
. . . .
Z 2 9 4
Above would be something like my data array worksheet and I would reference the cells to the formatted worksheet. The end result would be 26 worksheets named A test, B test, ..., and Z test.
Is there a way to copy a worksheet over and over creating new reference cells going down an array?
What I have:
Sub AddSheets()
Dim cell As Excel.Range
Dim SCHPipe As Excel.Worksheet
Dim MacroTBF1 As Excel.Workbook
Set SCHPipe = ActiveSheet
Set MacroTBF1 = ActiveWorkbook
For Each cell In SCHPipe.Range("B12:B15")
With MacroTBF1
.Sheets("OriginalTBF").Copy after:=.Sheets(.Sheets.Count)
End If
Next cell
End Sub
I do not know how to reference the data to each sheet being created. This keeps getting an invalid error message.

Answer 1

Something like this, you will need to adjust for the layout of your data and template sheet:
Sub AddSheets()
Dim cell As Range
Dim SCHPipe As Worksheet, shtOrig As Worksheet
Dim MacroTBF1 As Workbook, shtNew As Worksheet
Set SCHPipe = ActiveSheet
Set MacroTBF1 = ActiveWorkbook
Set shtOrig = MacroTBF1.Sheets("OriginalTBF")
For Each cell In SCHPipe.Range("B12:B15")
If cell.Value <> "" Then
shtOrig.Copy after:=MacroTBF1.Sheets(MacroTBF1.Sheets.Count)
Set shtNew = MacroTBF1.Sheets(MacroTBF1.Sheets.Count)
With shtNew
.Name = cell.Value & " Test"
.Range("A1").Value = cell.Value
.Range("A2").Value = cell.Offset(0, 1).Value
.Range("D49").Value = IIf(cell.Offset(0, 1).Value = "-", _
cell.Offset(0, 5).Value, "")
End With
End If
Next cell
End Sub