Paste Special Values losing destination formatting

That should work.

Option Explicit

' basic recorded macro with S1.B3 and S2.A4 pre-selected
Sub Macro1()
'
' Macro1 Macro
'

'
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Columns("A:A").EntireColumn.AutoFit
End Sub

' adapted macro to avoid selection
Sub sCopyPasteSpecial()

Sheets("Sheet1").Range("B4").Copy
With Sheets("Sheet2")
    With .Range("A4")
        .PasteSpecial _
            Paste:=xlPasteValues, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=False
    End With
    .Columns("A:A").EntireColumn.AutoFit
End With

End Sub

Suggest you post a sample workbook that demonstrates the problem.

That didnt work either Its still pasting as General
I guess i'll just have to format each column individually after pasting

e.g.

Range("A4:A100").NumberFormat = "dd/mm/yyyy"

You misunderstand. I'm not saying that code will work any differently. However, I recorded a simple macro which is shown first and then I "cleaned it up" to avoid ".Select ... Selection." Both versions, in my empty workbook, work as expected. That is, they copy a cell value, which happens to be a date, and pastes the value into another cell, which is formatted as a date.

So, if that isn't happening for you, I suspect that the problem lies elsewhere. But, without seeing what you are working with, I cannot investigate or explain what is going wrong.