按标题复制并粘贴表格

Question

我在一个页面上有表格列表（可从网站上下载），每个表格都有自己的标题并以相同的方式结尾。有没有一种简单的方法可以设置和循环查找一个标题，将其整个动态表复制并粘贴到另一张纸上。

工作表1的示例

标题1

11 A B C

12 D E F

13 G H I

总共30 J K L

标题2

11 M N O

12 P Q R

13 S T U

总30 V W X

一脉相承

Activesheet1

If cell in column A = "Title1"

        Do Until cell in column A = "Total"(Or first next blank cell)


             Sheet1 Range.(CellA:CellD).Copy


             Paste Sheet2

我尝试了几种方法，但永远无法仅获得整个第一张或第二张桌子。我在网上的任何地方都可以找到一个很好的例子。感谢您的任何帮助。