Macro filling UK Date that is a value as a US date in column with same format as source

Originally Posted by AlphaFrog

This is a guess, but give it a shot...

MyRanges(3) = DateValue(Range("caldata3").Value)

The DateValue function converts a Text-Date into a Serial-Date using your computer's system date setting e.g. English (United Kingdom) d/m/yyyy

Thanks for trying AlphaFrog.
Unfortunately source date of 07/01/21 saved to the ledger as 01/07/21.