VBA Excel - Billing Sorting - Problems with the Date

Question

Result for the 2020 entries (on the right the date of accession)

Hello to all, I am completely desperate. Starting in VBA I started writing a macro that sorts the mem