提取工作薄中各工作表的指定区域内容

你好，刚刚您给的回答太给力了，我想能不能进一步完善。
Sub 刷新_Click()
Worksheets("基础信息").Range("A2:G30000").ClearContents
For i = 1 To Sheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
Next
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
我把Offset(1, 0)改成Offset(1, 1)，就只合并了最后一个工作表，本意是不带第一列，以为是现有工作区域偏移一行、一列。
所以就延伸了一下，能不能改编一下，复制区域更加灵活，改为（A1:G100）这种类型的，就可以自由选定从第几个工作表开始合并，并可以选定每个工作表的指定区域。谢谢！
PS:1、[a65536]区域有什么涵义？
2、, vbInformation, "提示"这一部分我刚刚删掉了，也不影响，是什么用处。

Sub 工作表合并()
For i=1 to sheets.count
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).UsedRange.Offset(1, 1).Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub 
Sub 工作表合并()
For i=1 to sheets.count
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).[a2:G100].Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub

B1单元格写入公式 =INDIRECT(A1&"!C2) 下拉填充公式