salve
prova a con questa macro:
Sub combinami()
dim i as integer,nx as integer,riga as integer
dim n as integer
Set rng = Range("a1", Range("a1").End(xlDown))
nr = rng.Rows.Count
i = 1
nx = 1
riga = 1
For Each cl In rng
For n = 1 To nr - i
Cells(riga, 3).Value = cl.Value
Cells(riga, 4).Value = cl.Offset(nx, 0).Value
riga = riga + 1
nx = nx + 1
Next n
i = i + 1
nx = 1
Next cl
End Sub
la macro prevede che i numeri da combinare partano da cella A1 in giù. Lo sviluppo verrà estratto nelle colonne C:D
saluti
Andrea