区域单元格粘贴复制问题，在原代码上如何修改？

上官瑶瑶

各位老师好：因工作需要，我想实现以下功能：
打开BOOK2，点击 “按钮1” 按钮，跳出选择路径指向，找到：BOOK1，确认，将BOOK1中以B7（即7行2列单元格）为起点的数值（行是不固定的）粘贴到BOOK2中原有数据的下面，只粘贴数值，不粘贴格式。
跪求大神指教！
Sub test()
Application.ScreenUpdating = False
fn = Application.GetOpenFilename("Excel文件(*.xlsx;*.xls),*.xlsx;*.xls")
If Len(fn) Then
    Set wb = Workbooks.Open(fn)
    ar = wb.ActiveSheet.UsedRange.Offset(1)
    wb.Close False
Else
    End
End If
[a66536].End(3).Offset(1).Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub

sub麻辣君

Sub test()
Application.ScreenUpdating = False
fn = Application.GetOpenFilename("Excel文件(*.xlsx;*.xls),*.xlsx;*.xls")
If Len(fn) Then
    Set wb = Workbooks.Open(fn)
    ar = wb.ActiveSheet.[b7].Resize([b7].End(xlDown).Row - 6, 12)
    wb.Close False
Else
    End
End If
[a66536].End(3).Offset(1).Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub

hfwufanhf2006

复制粘贴啊，这个简单：
Application.ScreenUpdating = False
Application.DisplayAlerts = False
fn = Application.GetOpenFilename("Excel文件(*.xlsx;*.xls),*.xlsx;*.xls")
If Len(fn) > 0 Then
    Set wb = Workbooks.Open(fn)
    wb.Worksheets(1).Range(wb.Worksheets(1).Cells(7, 2), wb.Worksheets(1).Cells(wb.Worksheets(1).[b10000].End(3).Row, 13)).Copy
    ThisWorkbook.Worksheets(1).Activate
    Range("a" & [a100000].End(3).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    wb.Close False
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True

上官瑶瑶

sub麻辣君 发表于 2019-10-22 16:35
Sub test()
Application.ScreenUpdating = False
fn = Application.GetOpenFilename("Excel文件(*.xlsx;* ...

学习了，老师！

上官瑶瑶

hfwufanhf2006 发表于 2019-10-22 16:45
复制粘贴啊，这个简单：
Application.ScreenUpdating = False
Application.DisplayAlerts = False

谢谢老师的帮助，学习了！