Code to copy from userform to logsheet not working, no error messages

Hi everyone.

Could someone please take a look at this code and tell me what I need to change to make it function. Background: Userform has info put into fields. After it is complete, user hit submit button which is tied to this:

Private Sub CMB_Submit_Click()
   Dim rw As Long    'next available row
 
   With Sheets("EEG Log")
 
      'get the next avialable row in Sheet1
      rw = .Range("A" & .Rows.Count).End(xlUp).Row + 1
 
      'put the text box values in this row
      .Range("A" & rw).Value = TB_Date.Value
      .Range("B" & rw).Value = CMB_Employee.Value
      .Range("C" & rw).Value = Combobox1.Value
      .Range("D" & rw).Value = CMB_Absent.Value
      .Range("E" & rw).Value = TB_POINT.Value
      .Range("F" & rw).Value = TB_Description.Text
      .Range("G" & rw).Value = Combo_Charge.Text
      
           
   End With
   
   Dim resp As Integer
resp = MsgBox("Data submited to log." & vbCrLf & "Do you have another entry for this workgroup?", vbYesNo)
If resp = vbYes Then

With Sheets("EEG Log")
   
   
   CMB_Absent.Value = ""
   CMB_Employee.Value = ""
   Combobox1.Value = ""
   TB_Description.Text = ""
   TB_POINT.Value = ""
   Combo_Charge.Value = ""
   
  End With
  End If
  
  
If resp = vbNo Then
    CMB_Absent.Value = ""
   CMB_Employee.Value = ""
   Combobox1.Value = ""
   TB_Description.Text = ""
   TB_POINT.Value = ""
   Combo_Charge.Value = ""

ThisWorkbook.Save
   
    UF_EEGOCC.Hide
    UF_MANJP.Show
    
    
 
     End If
       
     End Sub

I don't see any errors on this, but it is not copying the data to the logsheet.

Any ideas?


Thanks for your help.

Patrick