Sub PasteSpecial()

​

    'Perform one Paste Special Operation:

    Range("A1").Copy

    'Paste Formats

    Range("B1").PasteSpecial Paste:=xlPasteFormats

    'Paste Column Widths

    Range("B1").PasteSpecial Paste:=xlPasteColumnWidths

    'Paste Formulas

    Range("B1").PasteSpecial Paste:=xlPasteFormulas

​

    'Perform Multiple Paste Special Operations at Once:

    Range("A1").Copy

    'Paste Formats and Transpose

    Range("B1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

​

    Application.CutCopyMode = False

End Sub