Tento kód premietne poslednú zmenu v stĺpci D do bunky C1:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aRange As Range
    Set aRange = Intersect(Target, Range("D:D"))
    If Not aRange Is Nothing Then
        Range("C1").Value = aRange.Value
    End If
    
    'Dim bRange As Range
    'Set bRange = Intersect(Target, Range("E:E"))
    'If Not bRange Is Nothing Then
    '    Range("C2").Value = bRange.Value
    'End If
End Sub

Odkomentovaná časť v kóde naznačuje, ako to rozšíriť tak, aby sa zmena v ďalšej oblasti premietla do inej bunky.