Correcting Run-time error '13' Type Mismatch

[Livin404]

Hello,

I've been working on a code to get my Database in Descending Order. The one I currently have actually works, but then I get my "Run-Time error '13'. From what I read it tells me the code does not recognise Column A beginning at A2 as a Date.

Private Sub CmdDescend_Click()
Dim xlSort As XlSortOrder
Dim LastRow As Long
With Sheets("ACTIVITY")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A2") = "Date"
.Columns("A:F").Sort key1:=.Range("A2"), order1:=xlDescending, Header:=xlYes
Call Submit
Call RESET
End With
End Sub

When I select the Debug it goes to a completely different Macro.

It highlights

.Cells(iRow, 1).Value = CDate(frmForm.Txtdate)

For full context here is the full Macro. I do not want to change that because it works well for my other tasks I have.

Sub Submit()
Dim sh As Worksheet
Dim iRow As Long
Set sh = ThisWorkbook.Sheets("Activity")
If frmForm.txtRowNumber.Value = "" Then
iRow = [Counta(Activity!A:A)] + 1
Else
iRow = frmForm.txtRowNumber.Value
End If
With sh
      .Cells(iRow, 1).Value = CDate(frmForm.Txtdate)
     .Cells(iRow, 2) = frmForm.Txtmission.Value
     .Cells(iRow, 3) = frmForm.Cmbmode.Value
     .Cells(iRow, 4) = frmForm.Cmbdenton_fms.Value
     .Cells(iRow, 5) = frmForm.Txtweight.Value
        End With
End Sub

Thank you,

 

[Georgiboy]

Should this:

.Cells(iRow, 1).Value = CDate(frmForm.Txtdate)

Be:

.Cells(iRow, 1).Value = CDate(frmForm.Txtdate.Text)

 

[Livin404]

Should this:

.Cells(iRow, 1).Value = CDate(frmForm.Txtdate)

Be:

.Cells(iRow, 1).Value = CDate(frmForm.Txtdate.Text)

I did try it and I'm afraid I'm getting the same result. Thank you for the input.

 

[Livin404]

I got it sorted. I used

 If frmForm.Txtdate <> "" Then .Cells(iRow, 1).Value = CDate(frmForm.Txtdate)

for that line it is wonderful