Hola buenas tardes... Necesito de su ayuda por favor con una macro de checkboxes

Hola buenas tardes. Tengo el siguiente código

Sub CopyRows()
For Each chkbx In ActiveSheet.CheckBoxes
If chkbx.Value = 1 Then
For r = 1 To Rows.Count
If Cells(r, 1).Top = chkbx.Top Then
With Worksheets("STSabado")
LRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & LRow & ":D" & LRow) = _
Worksheets("Selección").Range("A" & r & ":D" & r).Value
End With
Exit For
End If
Next r
End If
Next
End Sub

y lo que pasa es que lo estoy utilizando en 2 columnas ( E y F ) cada una de ellas pega los datos en sheets diferentes, pero me copia los datos de andas... Y lo que me gustaría es que al momento de escoger uno ya no se pueda escoger mas..

me podría ayudar?

Gracias