Generar dos checkbox en columnas A y C automáticamente

Les comento.

Tengo una macro que al encontrar datos en la columna B genera un checkbox automáticamente de la siguiente manera en la columna A:

Const Columna As String = "A"
Private Sub Worksheet_Change(ByVal Target As Range): On Error Resume Next
If Intersect(Target(1, 1), ActiveSheet.Columns("B")) Is Nothing Or Target(1, 1).Row = 1 Then Exit Sub
ActiveSheet.Shapes(ActiveSheet.Range(Columna & Target(1, 1).Row).Address).Delete
Application.EnableEvents = False
ActiveSheet.Range(Columna & Target(1, 1).Row) = False
If Not Target(1, 1) = "" Then AñadirCheck ActiveSheet.Range(Columna & Target(1, 1).Row)
Application.EnableEvents = True
End Sub
Sub AñadirCheck(Celda As Range): On Error Resume Next
ActiveSheet.CheckBoxes.Add(0, 0, 15, 15).Select
With Selection
   .Name = Celda.Address
   .Caption = ""
   .LinkedCell = Columna & Celda.Row
   .Top = Celda.Top
   .Left = Celda.Left
   .Width = Celda.Width
   .Height = Celda.Height
End With
ActiveCell.Select
End Sub
Sub RestaurarEventos()
Application.EnableEvents = True
End Sub

Lo que quisiera es que la celda asociada al resultado del checkbox (verdadero o falso) sea la celda U y no la celda A como actualmente.
Y lo segundo, que al encontrar datos en la columna DE se genere un checkbox en la columna C y su resultado se vincule a la columna V.