Data issue in Excel file

In your Validate_List sub you refer to a variable named TotRow. When the workbook is closed the Validate_List sub is called and if TotRow has not been set to some value the line

Range3 = "a2:a" & Trim(CStr(TotRow))

Select allOpen in new window

resolves to a2:a0 which is invalid.

But I have got Type mismatch error to 2nd line below

        If Trim(CStr(Worksheets("Main Sheet").Cells(RowID, 19).Value)) <> "" Then
            i_Day = Now() - Worksheets("Main Sheet").Cells(RowID, 19).Value

Select allOpen in new window

while Worksheets("Main Sheet").Cells(RowID, 19).Value is having value 30/04/2021. What is the reason of this?