关于向新的工作薄中最加当前记录

fjcaichun

图一是当前工作表

图一

，图二是汇总表，下面是"导入"的VBA
Sub 导入()
AA = Worksheets("填报").[b1:b3]
With Worksheets("汇总")
BB = .Cells(.Rows.Count, 2).End(3).Row
.Cells(BB + 1, 2).Resize(1, 3) = Application.Transpose(AA)
.Cells(BB + 1, 1) = Val(.Cells(BB, 1)) + 1
End With
End Sub


这样可以实现把图一的记录导入到汇总表中，但是我想把汇总表独立开来，就是说"填报"跟“汇总表”是两个不同的工作簿，这样这个代码要怎么修改，期望高手解答，本人是菜鸟，谢谢了！