Un esempio molto semplice potrebbe essere questo:
Non so se è la via migliore per fare quello che chiedi comunque lo facodice:Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long i = 0 Do i = i + 1 If Trim(Foglio2.Cells(i, 1)) = "" Then Foglio2.Cells(i, 1) = Target: Exit Do Loop End Sub![]()
Scrive nel foglio2 quello che tu digiti in una cella di un altro foglio nel quale è stata inserita questa sub