Recorded macro but message saying not supported

[ipbr21054]

Hi,


I have in use the code below,

    With Worksheets("NEW CARS").Sort        .SetRange Range("A1:S42")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


        Application.CutCopyMode = False
    Call OWNERS_DETAILS
    End Sub

I wish to have the cells white & all borders.
I recorded a macro & added it into the code above but i receive a error message saying not supported,so like usual i messed up.
How would i then add it in correctly if i may ask,

With Worksheets("NEW CARS").Sort        .SetRange Range("A1:S42")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
       . Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0

        .Apply
    End With


        Application.CutCopyMode = False
    Call OWNERS_DETAILS
    End Sub

Thanks