Filter yesterday onwards

Hi all, I have a data set that I want to automate daily, I need to filter (show) only content from yesterday onwards. Dates are in Column A.

I have the code below, but this seems to filter in American date format - for instance if I run it today, I see data from 11th December onwards rather than 12th November.

    Sheets("Data").Range("$A:$BE").AutoFilter _
    Field:=1, Criteria1:=">=" & Date - 1
'

The column is stored as UK date format data


Can anyone assist