VB6 取excel 区域（A6: F6）绝对值大的单元给，并复制到另外一工作表 C1

想要把 Excel 1.xlsx sheet1.range("A6:F6") 绝对值大的单元格，复制 到Excel 2.xlsx 的 C1不知怎么操作，请大神指教。谢谢。
Dim xlApp As EXCEL.Application
Dim xlBook As EXCEL.Workbook
Dim xlSheet As EXCEL.Worksheet

Dim xlxlApp As EXCEL.Application
Dim xlxlBook As EXCEL.Workbook
Dim xlxlSheet As EXCEL.Worksheet

Set xlBook = xlApp.Workbooks.Open("C:\Users\Huaguo\Desktop\Temp1\1.xlsx")
Set xlSheet = xlBook.Worksheets(1)
...
Set xlxlBook = xlApp.Workbooks.Open("C:\Users\Huaguo\Desktop\Temp1\2.xlsx")
Set xlxlSheet = xlxlBook.Worksheets(1)
...