Two ways are possible

1)

Sheets("Finale").Range("A6:J6").Value = _
Sheets("Date").Range("A3:J3").Value

Sheets("Finale").Range("C7:J7").Value = _
Sheets("Date").Range("C4:J4").Value

2)
dim rw as long, cl as long
rw=3
for cl = 1 to 10
Sheets("Finale").Cells(rw+4,cl).Value = _
Sheets("Date").Cells(rw,cl).Value
next
rw = 4
for cl = 3 to 10
Sheets("Finale").Cells(rw+4,cl).Value = _
Sheets("Date").Cells(rw,cl).Value
next


depend sor your needs, but obviously (1) is faster

Patrick Molloy
Microsoft Excel MVP


-----Original Message-----
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


.