Paste Special Values losing destination formatting

I have a macro which copies a filtered range and pastes the data into columns in another sheet. I am pasting using the below code:

Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues

It works fne however I am losing the formatting in the destination table. e.g. One column has been formatted as DATE (DD/MM/YYYY) but when the macro pastes values it pastes as general and values appears as numbers.
Just to confirm, I want to keep the formatting in the destination table, not the source.


Any idea how to resolve this?

Thanks!