调个个儿

LED147258

Sub CopyData()
      Dim Temp As String
      Temp = "'" & ThisWorkbook.Path & "\[网.xlsx]Sheet1'!"
      With Workbooks("爬.xlsm").Sheets("更新").Range("A1:C31")
          .FormulaR1C1 = "=" & Temp & "RC"
          .Value = .Value
      End With
  End Sub
有这么个代码，同文件夹里两个工作簿，代码在（爬.xlsm），将同文件夹里[网.xlsx]的内容提取到代码运行（爬.xlsm）的文件里。

但是我现在想颠倒一下，用代码将现在运行的工作表的区域，复制到同文件夹的“另一个”工作簿工作表的指定区域里。
怎么颠倒？