I want to modify this macro so that it copies sheet1, the appropriate number
of times.
At present it adds new blank sheets.

Sub CopySheet1()
Dim arr As Variant
arr = Range("i1:i44").Value
For i = LBound(arr) To UBound(arr)
Set NewSheet = Sheets.addd
NewSheet.Name = arr(i, 1)
Next i

End Sub