Excel - VBA -复制单元格值粘贴

Sub 复制粘贴值()

    Range("G8:AK13").Select
    Selection.Copy
    Sheets("数据汇总表").Select
    Range("E6:AI11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    MsgBox"保存成功"

End Sub