VBA 셀 값이 변경 될 때 이전 셀 값 표시

Private Sub Worksheet_Calculate()

With Sheets("기록")

lr = .Cells(Rows.count, "A").End(xlUp).Row

If Range("A1").Value <> .Cells(lr, "A") Then

.Cells(lr + 1, "A").Value = Range("A1").Value

.Cells(lr + 1, "B").Value = Now

End If

End With

End Sub

라는 VBA 코드를 찾아서 사용 하려는데 같은 시트에 원하는 셀 위치에 이전 셀 값을 표시하고싶습니다.

바로 사용해야하는데 아직 VBA 강의를 듣지 않아 수정해서 사용하기가 어렵네요.

내역서라는 시트에서 AS11 셀 값이 변경 될 경우 AZ10 셀에 이전 셀 값이 표시되게 하고 싶습니다.