Vba para copiar especial

Sub Copiar_Especial()

 Sheets("fornecedor 1").Select

    Range("f8:f116").Select

    Selection.Copy

    Sheets("compras").Select

    Range("e8:e116").Select

    Selection.PasteSpecial Paste:=xlPasteValues, _

    Operation:=xlNone, skipblanks:=False, _

    Transpose:=False

    Application.CutCopyMode = False