Hi could someone please tell me how to paste special with correct widths as well as formats at the same time if possible.
I can copy cells from one sheet to another and get the format ok but how do I get the correct width.
Thanks

Dim rSource As Excel.Range
    Dim rDestination As Excel.Range
    
   
    
    Worksheets("Main").Activate
    Set rSource = ActiveSheet.Range("b:b")

    Selection.AutoFilter Field:=3, Criteria1:="Bakery"
    rSource.Copy
    Worksheets("Main2").Activate
     Set rDestination = ActiveSheet.Range("a:a")
    rDestination.Select

    Selection.PasteSpecial Paste:=xlPasteFormats, _
    operation:=xlNone, _
    skipblanks:=False, _
    Transpose:=False