checkbox to take a value from one cell and put it into another cell

hi
I am new here and would like to say hello to all of you guys here
anyway, I try to build a matrix with checkbox and say if I click to the checkbox, then it will take a value (say A1) and put that value into another cell (say A2)
Can someone help me with the code
thanks

See what you can do with this

Sub Process_CheckBox()
'This sub is assigned to all checkboxes on sheet1

'Cheched: Show Date
'Unchecked: Cell.Value = NULL (empty)

    Dim cBox As CheckBox
    Dim LRow As Integer
    Dim LRange As String
    
    LName = Application.Caller ' Multiple object are assigned to this Macro. Which is Calling this macro
    Set cBox = ActiveSheet.CheckBoxes(LName)  ' make pointer to this object
    
    'Find row that checkbox resides in
    LRow = cBox.TopLeftCell.Row 'In which Cell (and Row) is the TopLeft corner of the Checkbox
    LRange = "B" & CStr(LRow) 'All in Column "B"
    
    'Change date in column B, if checkbox is checked
    If cBox.Value > 0 Then '0: UnChecked, 1: Checked
        ActiveSheet.Range(LRange).Value = Date
        
    'Clear date in column B, if checkbox is unchecked
    Else
        ActiveSheet.Range(LRange).Value = Null
    End If
    
End Sub

-----
this is what I get out of the macro
can you help me fix the macro to do precisely as stated, I know nothing about VB
thanks

Please read the forum rules and put the Code between ## so it will appear as follows:

Sub Process_CheckBox()
'This sub is assigned to all checkboxes on sheet1
'Cheched: Show Date
'Unchecked: Cell.Value = NULL (empty)

    Dim cBox As CheckBox
    Dim LRow As Integer
    Dim LRange As String, RRange As String
    
    LName = Application.Caller ' Multiple object are assigned to this Macro. Which is Calling this macro
    Set cBox = ActiveSheet.CheckBoxes(LName)  ' make pointer to this object
    
    'Find row that checkbox resides in
    LRow = cBox.TopLeftCell.Row 'In which Cell (and Row) is the TopLeft corner of the Checkbox
    LRange = "A" & CStr(LRow) 'All in Column "B"
    RRange = "B" & CStr(LRow) 'All in Column "B"
    
    'Change date in column B, if checkbox is checked
    If cBox.Value > 0 Then '0: UnChecked, 1: Checked
        ActiveSheet.Range(RRange).Value = ActiveSheet.Range(LRange).Value
        
    'Clear date in column B, if checkbox is unchecked
    Else
        ActiveSheet.Range(RRange).Value = Null
    End If
    
End Sub