Position of a checkbox

I am using the below code to produce a checkbox automatically when a row is completed but as more and more rows are added the checkbox in the cell positions further and further down in the cell as you go down the sheet, eventually crossing over into the next cell. Is there a way to fix the position within a cell for the checkbox to appear and sit?

' Create Checkbox, checkbox position is 1760
CBWidth = 24
CBHeight = 17.25

For i_O = 6 To LRowO
    If shtO.Cells(i_O, "C") <> "" Then
        CBTop = shtO.Cells(i_O, "J").Top
        shtO.CheckBoxes.Add(1760, CBTop, 24, 17.25).Select
        Selection.Characters.Text = ""
        Selection.Name = "CB_J" & i_O
        With Selection
            .Value = xlOff
            .LinkedCell = "$K$" & i_O
            .Display3DShading = False
        End With
    End If
Next i_O
End Sub