Un esempio molto semplice potrebbe essere questo:
codice:
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
Non so se è la via migliore per fare quello che chiedi comunque lo fa
Scrive nel foglio2 quello che tu digiti in una cella di un altro foglio nel quale è stata inserita questa sub