Zmiana wartości w aktywnej komórce spowoduje, że w komórce obok pojawi się wynik

Witam serdecznie,
Prosiłbym o pomoc z ponizszym makrem:

'Private Sub Worksheet_Change(ByVal Target As Range)
' Dim KeyCells As Rang
' kolumna = ActiveCell.Column
' wiersz = ActiveCell.Row
' komorka = Cells(wiersz, kolumna).Address
' Set KeyCells = Range(komorka)

'If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

' Range(Cells(wiersz, kolumna + 1)) = KeyCells * 12

'End If
'End Sub

Makro ma zadanie wstawic wartosc w komorce obok aktywnej komórki w ktorej zmieni sie wartosc.
Ta aktywna komorka moze byc w roznym miejscu (nie ma na sztywno przypisanej, kolumny ani wiersza).

Bede ogromnie wdzieczny za pomoc.

Pozdrawiam
Robert

Target.offset(0,1) = Target * 12

@Ales: Dzieki za szybka odpowiedz, ale makro zadziała tylko wtedy gdy zamiast:
Set KeyCells = Range(komorka) zrobie na sztywno konkretna komorke np. Set KeyCells = Range("D3"), jakis pomysł?

ActiveCell to aktywna komórka a nie ta, w której zmieniłeś wartość. Dlatego event Worksheet_Change zawiera parametr zakresu (Target), skorzystaj z niego tak ja to pokazałem.
Dodatkowo Cells i Range dla jednej komórki to jest to samo, więc nie ma sensu przypisywanie jednego z drugiego.