50 sets of data in sheet1 , need to create 50 new sheets and pull in 1 set of data for each

[Peptide]

Hello
Are there formulas that could be placed in Sheet2-4 to pull in data from sheet1 all at once? This example shows 3 sheets, but in reality I have 50 sets of data in sheet1 and would need 50 separate sheets populated

Data Sheet1 - A1:A3
Set1 Set2 Set3
Bob Tom Bill
Nuts Berry Soda
5 10 15

Sheet2 A1:A4
Set1
Bob
Nuts
5

Sheet3 A1:A4
Set2
Tom
Berry
10

Sheet4 A1:A4
Set3
Bill
Soda
15

 

[mse330]

If you are willing to use VBA, try the below code

Sub sets()

Dim Rg As Range, lRow As Long, Ws As Worksheet

Set Ws = ActiveSheet
Set Rg = Ws.UsedRange

For x = 1 To Rg.Columns.Count
    y = y + 1
    lRow = Ws.Cells(Rows.Count, y).End(xlUp).Row
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Range("A1:A" & lRow) = Ws.Range("A1:A" & lRow).Offset(0, y - 1).Value
Next x

End Sub