Mit Button Daten in andere Tabelle übertragen

Sub DatenInsArchiv()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Eingabe")
Set ws2 = Worksheets("Archiv")

Dim letzteZeile As Long
letzteZeile = ws2.Range("A65536").End(xlUp).Row + 1

ws2.Cells(letzteZeile, 1) = Range("Baunummer").Value
Range("Baunummer").ClearContents

ws2.Cells(letzteZeile, 2) = Range("Bauteil").Value
Range("Bauteil").ClearContents

usw.

Im Rahmen der Dateneingabe möchte ich jetzt nicht nur Daten aus Zellen, sondern auch aus Kontrollkästchen (oder Checkboxen ???) übertragen, d.h. den Wert true oder false. Dies soll durch den gleichen Knopfdruck geschehen.

Kann mir jemand den entsprechenden Code nennen?

Thorsten