VBA to transfer values to one table to another

Hi,

I have some problem with this VBA code that is use to transfer values from one table to another.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim chqLR As Long, savLR As Long, celLR As Long, marLR As Long
    
    
If Target.Row < 6 Or Target.Row > 102 Then Exit Sub
If Target.Column <> 7 And Target.Column <> 9 And Target.Column <> 19 And Target.Column <> 21 Then Exit Sub

Application.EnableEvents = False

chqLR = Range("C" & 102).End(xlUp).Row
savLR = Range("Q" & 102).End(xlUp).Row
celLR = Range("AC" & 102).End(xlUp).Row
marLR = Range("AO" & 102).End(xlUp).Row
    
If Target.Column = 7 Or Target.Column = 9 Then
    If UCase(Range("G" & Target.Row)) = UCase("Transfer Chequing-Savings") _
       And Range("I" & Target.Row) <> "" Then
            Range("Q" & savLR + 1) = Range("C" & Target.Row)
            Range("S" & savLR + 1) = Range("G" & Target.Row)
            Range("W" & savLR + 1) = Range("i" & Target.Row)
    End If
End If

If Target.Column = 19 Or Target.Column = 21 Then
    If UCase(Range("S" & Target.Row)) = UCase("Transfer Savings-Chequing") _
       And Range("U" & Target.Row) <> "" Then
            Range("C" & chqLR + 1) = Range("Q" & Target.Row)
            Range("G" & chqLR + 1) = Range("S" & Target.Row)
            Range("K" & chqLR + 1) = Range("U" & Target.Row)
    End If
End If

If Target.Column = 7 Or Target.Column = 9 Then
    If UCase(Range("G" & Target.Row)) = UCase("Transfer Chequing-Celi") _
       And Range("I" & Target.Row) <> "" Then
            Range("AC" & celLR + 1) = Range("C" & Target.Row)
            Range("AE" & celLR + 1) = Range("G" & Target.Row)
            Range("AI" & celLR + 1) = Range("I" & Target.Row)
    End If
End If

If Target.Column = 31 Or Target.Column = 33 Then
    If UCase(Range("AE" & Target.Row)) = UCase("Transfer Celi-Chequing") _
       And Range("AG" & Target.Row) <> "" Then
            Range("C" & chqLR + 1) = Range("AC" & Target.Row)
            Range("G" & chqLR + 1) = Range("AE" & Target.Row)
            Range("K" & chqLR + 1) = Range("AG" & Target.Row)
    End If
End If

If Target.Column = 7 Or Target.Column = 9 Then
    If UCase(Range("G" & Target.Row)) = UCase("Transfer Chequing-Line") _
       And Range("I" & Target.Row) <> "" Then
            Range("AO" & celLR + 1) = Range("C" & Target.Row)
            Range("AQ" & celLR + 1) = Range("G" & Target.Row)
            Range("AU" & celLR + 1) = Range("i" & Target.Row)
    End If
End If

If Target.Column = 43 Or Target.Column = 45 Then
    If UCase(Range("AQ" & Target.Row)) = UCase("Transfer Line-Chequing") _
       And Range("AS" & Target.Row) <> "" Then
            Range("C" & marLR + 1) = Range("AO" & Target.Row)
            Range("G" & marLR + 1) = Range("AQ" & Target.Row)
            Range("K" & marLR + 1) = Range("AS" & Target.Row)
    End If
End If

Application.EnableEvents = True
End Sub

I don't understand why I can transfer values from :

Chequing to Savings account and vice versa,
Chequing to Celi
and Chequing to Line

but I can't transfer from Celi to chequing and
LIne to Chequing.

My second question is :
Why do the values in Line of credit appear in AO9 instead of AO7 ?

Thanks for your answer. This project is important for me

Camaalot