Macro para desmarcar casillas de verificación

Hola expertos tengo una consulta y requiero de su valiosa ayuda: Tengo una macro que me copia datos de una hoja y las lleva a otra para crear una base de datos y luego limpia las celdas de la primera hoja. El asunto es que también agregué dos casillas de verificación y necesito que cuando ejecute la macro desde el botón también desmarque las casillas que pudieren estar marcadas.
El código que estoy utilizando es este:
Private Sub CommandButton1_Click()
libre = Sheets("envios").Range("A65536").End(xlUp).Row + 1
Sheets("envios").Cells(libre, 1) = ActiveSheet.Range("B2")
Sheets("envios").Cells(libre, 2) = ActiveSheet.Range("C2")
Sheets("envios").Cells(libre, 3) = ActiveSheet.Range("D2")
Sheets("envios").Cells(libre, 4) = ActiveSheet.Range("E2")
Sheets("envios").Cells(libre, 5) = ActiveSheet.Range("I2")
Sheets("envios").Cells(libre, 6) = ActiveSheet.Range("J2")
Sheets("envios").Cells(libre, 7) = ActiveSheet.Range("C4")
'otras celdas a las siguientes col
ActiveSheet.Range("B2,C2,D2,E2,C4") = ""
End Sub
En espera de sus amables comentarios,
NAF0616