intanto creiamo un pulsante che crei i singoli fogli:

associaci questa macro
codice:
Private Sub CommandButton1_Click()
    
    rigainiz = 3
    RigaFine = ActiveSheet.Cells(rigainiz, 1).End(xlDown).Row
    foglioiniz = ActiveSheet.Name
    
    For t = rigainiz To RigaFine
        Nomefoglio = ActiveSheet.Cells(t, 1)
        Sheets.Add 'After:=Worksheets.Count
        ActiveSheet.Name = Nomefoglio
        ActiveSheet.Move After:=Sheets(Sheets.Count)
        Sheets(foglioiniz).Activate
    Next t

End Sub
SIstema la prima variabile con la prima riga utile dell'elenco
intanto prova, poi andiamo avanti insieme...
ok?
facci sapè