将数据复制到另一个Excel工作表

Question

我有一个宏来选择一系列单元格，擦除单元格，按字母顺序对数据进行排序并保存文件。

我需要宏将选定的单元格区域复制到另一个Excel工作表，但我无法创建代码。

我宏的代码是：

Sub SAVE1()
'
' SAVE1 Macro
'

'
    Range("B8:K8").Select
    Selection.ClearContents
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("B7:B85"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B8").Select
    ActiveWorkbook.Save
End Sub

如果您有任何想法，请告诉我。

非常感谢你的帮助。 若昂