Copy A/F Data To New Sheet & Retain Format

Using xl 2007 - The following code is working fine. except on completion my new sheet does not have the same nice formatting of the Original Sheet.. So I need to Incorporate the formatting of the new sheet to be the same as the Original Sheet.


Sub DumpAutoFilterToNewSheet1()
Dim wss As Worksheet
Dim wsd As Worksheet
Set wss = ActiveSheet
If ActiveSheet.FilterMode Then
Set wsd = Worksheets.Add
wss.AutoFilter.Range.Copy _
Destination:=wsd.Cells(1, 1)
Else
MsgBox "Nothing is currently Filtered" & vbNewLine _
& "Filter a Column and Try Again."
End If
End Sub