VBA kopieer de waarde van de volgende cel ipv de huidige

[Matke]

Hallo,

Ik ben op zoek naar functie die wanneer er een waarde veranderd in kolom J er een nieuwe regel onderaan de tabel word gemaakt met die waarde(s).
De waardes van de volgende regel worden getoond ipv de huidige cel/regel waarde.
Het valt ook op dat wanneer ik verplaats naar een andere J cel hij de macro wel draait. Wanneer ik naar cel I of K ga draait hij de macro niet.
Waar zit ik fout ?

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("J45:J498")) Is Nothing Then
  If Not IsEmpty(ActiveCell.Value) Or ActiveCell.Value <> 0 Then
   MsgBox "ActiveCell.Value = " & ActiveCell.Value, vbExclamation
   Call lastrow_inventory
  End If
End If

End Sub

Sub lastrow_inventory()

Dim lastrow As Long
Dim r As Integer
Dim a As Integer

r = ActiveCell.Row
a = ActiveCell.Value

lastrow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row + 1

ActiveSheet.Cells(lastrow, "D").Value = r & " " & a

End Sub

 

[SjonR]

de macro draait alleen als er in het bereik J45:J498 iets wijzigt, dat is hier geregeld:

If Not Intersect(Target, Range("J45:J498")) Is Nothing Then

 

[VenA]

Wat moet de code doen? ActiveCell is afhankelijk van jouw instellingen. Verder is het een breiwerk van totaal onnodige code. Dus een voorbeeldbestandje is welkom.