Sub a() LR = Cells(Rows.Count, "A").End(xlUp).Row dcol1 = 7 'colonna risultato drow = 8 ' riga risultato dcol = dcol1 For r = 8 To 10 'LR For c = 2 To 5 Cells(drow, dcol) = Cells(r, 1) dcol = dcol + 1 Cells(drow, dcol) = Cells(7, c) dcol = dcol + 1 Cells(drow, dcol) = Cells(r, c) dcol = dcol1 drow = drow + 1 Next Next End Sub