The code below shows no errors but does not post any data when I click the button
Private Sub cmbAddEntry_Click()
Dim LastRow As Long, ws As Worksheet
Set ws = ActiveSheet
LastRow = ws.Range("a" & Rows.Count).End(xlUp).Row + 1
ws.Range("B" & LastRow) = txtDate.Text
ws.Range("G" &...