I am very new to VBA programing and I would like some help. I want to copy a sheet x number of times and copy a different cell to each copied sheet. I have a code that will copy the sheet but I need help writing some code to copy a cell to each sheet. Let me try to explain a little better.

Lets say I have something in cells A1:A5. I would want to make 5 copies of sheet2 and copy A1 to the first sheet, copy A2 to the second sheet, A3 to the third sheet and so forth.

See my code for copying the sheets below.

Private Sub CommandButton1_Click()

    Dim x As Integer
    
    
    x = Range("B6").Value
    For numtimes = 1 To x

        'Loop by using x as the index number to make x number copies.
        'Replace "Sheet1" with the name of the sheet to be copied.
        ActiveWorkbook.Sheets("Sheet2").Copy _
           After:=ActiveWorkbook.Sheets("Sheet2")
    Next
    
End Sub
Thank you