Bravo mancam è quasi giusto, solo che con questo seleziona un'area, se nn ho capito male lui voleva solo la cella, per la sola cella dovrebbe essere così;
Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 06/02/2004 da Darkkik
'
'
Sheets("Foglio1").Select
Range("A2").Select
Selection.Copy
Sheets("Foglio2").Activate
Range("A2").Select
If ActiveCell = "" Then
ActiveSheet.Paste
Else
For i = 65536 To 1 Step -1
If Cells(i, 1).Value <> Empty Then
Cells(i, 1).Offset(1, 0).Select
ActiveSheet.Paste
Exit For
End If
Next
End If
'
End Sub
In tutti e due i casi funziona...scelga lui.
ciao.![]()

Rispondi quotando
