vba提取工作表中活动区域问题

需要提取当前工作簿中每个工作表此区域数据，并且汇总成一个表格
1、此区域在不同工作表中位置不同
2、此区域在不同工作表中行数列数不同

这个需要扫描所有行，每行都判断关键字，当遇到关键字，下一行就开始读取数据，读取数据的时候在判断是否是结束关键字，如果是结束关键字就结束循环。