2nd Updating Cell with VBA?

[Greg777]

Hello,

Whenever cell A1 has a new value, it is recorded in column K. I would like the VBA code to do the same for cell A2 & column L.

Here is the VBA code that I have used for cell A1:

'1st
Private Sub Worksheet_Change(ByVal Target As Range)

Dim AAA As Long

AAA = Range("K" & Rows.Count).End(xlUp).Row

If [A1] <> Range("K" & AAA) Then
    Application.EnableEvents = False
    Range("K" & AAA + 1).Value = [A1].Value
    Application.EnableEvents = True
End If
End Sub

I've attached 2 files.
The file that ends with an 'a' is works as expected.
The file ending in 'b' attempts to do the same thing, but twice, acting on two cells at once and gives an error. I'd like to get this to work, in file 'b'.

Thanks for any help!

Greg