CheckBox in Userform

Dear all,

Can you please guide me, how to update the same date into another sheet when i select the checkbox . the Following code i am using to save data.

Private Sub cmdAdd_Click()
'dimention the variable
Dim DataSH As Worksheet
Dim Addme As Range
'set the variable
Set DataSH = Sheet2
'error handler
On Error GoTo errHandler:
'set variable for the destination
Set Addme = DataSH.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
'hold in memory and stop screen flicker
Application.ScreenUpdating = False
If Me.txtSurname = "" Or Me.txtFirstName = "" Or Me.txtAddress = "" Then
MsgBox "There is insufficient data, Please return and add the needed information"
Exit Sub
End If
'send the values to the database
With DataSH
'add the unique reference ID then all other values
Addme.Offset(0, -1) = DataSH.Range("C6").Value + 1
Addme.Value = Me.txtSurname
Addme.Offset(0, 1).Value = Me.txtFirstName
Addme.Offset(0, 2).Value = Me.txtAddress
Addme.Offset(0, 3).Value = Me.txtPhone
Addme.Offset(0, 4).Value = Me.txtMobile
Addme.Offset(0, 5).Value = Me.txtEmail
End With
'sort the data by "Surname"
DataSH.Select
With DataSH
.Range("B9:H10000").Sort Key1:=Range("C9"), Order1:=xlAscending, Header:=xlGuess
End With
'sort the data by "Surname"
'clear the values after entry
Clear
'communicate with the user
MsgBox "Your student data was successfully added"
'return to interface sheet sheet
Sheet1.Select
'reset the form
On Error GoTo 0
Exit Sub
errHandler:
'if error occurs then show me exactly where the error occurs
MsgBox "Error " & Err.Number & _
" (" & Err.Description & ")in procedure cmdClear_Click of Form StudentDB"
End Sub

if chkBox.value then sheets("sheet2").range("b1").value = me.txtDate

Will you be able to fix this in to my code ?
Checkbox name = CheckBox1
I want the data in Sheet6
The Following data should be capture in "Sheet6" when in click on the cmdAdd Button

'add the unique reference ID then all other values
Addme.Offset(0, -1) = DataSH.Range("C6").Value + 1
Addme.Value = Me.txtSurname
Addme.Offset(0, 1).Value = Me.txtFirstName
Addme.Offset(0, 2).Value = Me.txtAddress
Addme.Offset(0, 3).Value = Me.txtPhone
Addme.Offset(0, 4).Value = Me.txtMobile
Addme.Offset(0, 5).Value = Me.txtEmail

Any Help ?