Hello,
I have the code below which becomes too long since I must go to line 200.
I would like to automate this procedure but I really do not see how.

The A6 cell of the "Finale" sheet must take again the data being in B3 on
the sheet "Data"
and the B6 cell of the "Finale" sheet must take again the data being in A3
on the "Data" sheet.

Procedure with cells(i, 1) with "for i =) ?????

Would somebody have a track?
Thank you for your assistance.


Private Sub Worksheet_Activate()
With Sheets("Finale")
..Range("A6") = Sheets("Data").Range("B3")
..Range("B6") = Sheets("Data").Range("A3")
..Range("C6") = Sheets("Data").Range("C3")
..Range("D6") = Sheets("Data").Range("D3")
..Range("E6") = Sheets("Data").Range("E3")
..Range("F6") = Sheets("Data").Range("F3")
..Range("G6") = Sheets("Data").Range("G3")
..Range("H6") = Sheets("Data").Range("H3")
..Range("I6") = Sheets("Data").Range("I3")
..Range("J6") = Sheets("Data").Range("J3")

..Range("C7") = Sheets("Data").Range("C4")
..Range("D7") = Sheets("Data").Range("D4")
..Range("E7") = Sheets("Data").Range("E4")
..Range("F7") = Sheets("Data").Range("F4")
..Range("G7") = Sheets("Data").Range("G4")
..Range("H7") = Sheets("Data").Range("H4")
..Range("I7") = Sheets("Data").Range("I4")
..Range("J7") = Sheets("Data").Range("J4")

- - - - -

End With
End Sub