从用户选择的范围vba中选择一个新的范围

Question

我需要你的帮助。 我定义了一个名为myRange的变量作为Range并将其设置为用户选择的Range，然后从该Range创建一个图表。 因为创建的图表转到了新的工作表，所以我再次激活（“尴尬”），其中myRange仍然处于选中状态。现在，我想移动一个新的范围，其中包含9个九个新单元格，并创建另一个图表，然后剪切第一个图表并将其粘贴到第二个图表中，然后将它们移动到我的图纸中（“尴尬”）。 问题在于，在此步骤“ Set mySecRange = Selection.Offset(0, 9).Select'中出现“对象必需”错误。

这是我的代码：

 Sub Macro3()


  Dim myRange As Range

  Set myRange = Selection

  Charts.Add

    With ActiveChart

        .ChartType = xlLine

        .SetSourceData Source:=myRange

    End With

 Worksheets("Embarrassing").Activate

Dim mySecRange As Range

Set mySecRange = Selection.Offset(0, 9).Select


 Charts.Add

    With ActiveChart

        .ChartType = xlLine

        .SetSourceData Source:=mySecRange

        End With

End Sub