Ciao Matteo
Perché ogni tanto non provi a tirare giù qualcosa anche di non funzionante??
Comunque:
Sub CopiaRecords()
Set wkF = Worksheets("foglio1")
Set wkT = Worksheets("foglio2")
wkT.Cells.ClearContents
lr = wkF.Range("A" & Rows.Count).End(xlUp).Row
lr1 = wkF.Range("F" & Rows.Count).End(xlUp).Row
mArr = wkF.Range("a1:f" & Application.WorksheetFunction.Max(lr, lr1))
For i = 1 To UBound(mArr)
For j = 1 To 6
If Not IsEmpty(mArr(i, j)) Then
wkT.Cells(i, j) = mArr(i, j)
Else
wkT.Cells(i - 1, 7) = mArr(i, 6)
Exit For
End If
Next
Next
End Sub
sempre che ci siano max 2 righe per ciascun record e le colonne siano 6.
Inserisci il dimensionamento delle variabili e una gestione di errori.
saluti
[Modificato da dodo47 02/06/2017 20:02]
Domenico
Win 10 - Excel 2016