Excel表格细分为单独的工作表？

Question

我有一个很大的数据集，看起来像这样：

每个州的列数相同（收入，成本和利润）。数据集右边还有其他许多州，例如AZ，CO，CA等（实际数据集有100多个城市）

现在我要做的是将这些巨大的数据集分解为与原始数据集相同的工作簿（在此示例中为201701），在同一工作簿的单独工作表中的单独表中。它们看起来像这三个带有黑色标题的表：

每个表的3个列（收入，成本和利润）都是相同的，但所显示的程序却多于所示。

我有更多类似的文件，所以会有201702.xlsm，201703.xlsm等。

有人可以帮助我解决这个问题吗？这是我使用宏构建的代码（不用说，它不符合我的期望）。

Sub BreakdownTables()
'
' BreakdownTables Macro
'

'
 Range("B1:D7").Select
 Sheets.Add After:=ActiveSheet
 Sheets("Trial").Select

 'I basically just copy-paste the tables to separate sheets
 Selection.Copy
 Sheets("Sheet2").Select
 ActiveSheet.Paste
 Sheets("Trial").Select
 Range("E1:G7").Select
 Application.CutCopyMode = False
 Selection.Copy
 Sheets("Sheet2").Select
 Sheets.Add After:=ActiveSheet
 Sheets("Sheet3").Select
 ActiveSheet.Paste
 Sheets("Trial").Select
 Range("H1:J7").Select
 Application.CutCopyMode = False
 Selection.Copy
 Sheets.Add After:=ActiveSheet
 ActiveSheet.Paste
 Sheets("Sheet4").Select
 Application.CutCopyMode = False
 Sheets("Sheet4").Move After:=Sheets(9)
 Range("F19").Select
 Sheets("Sheet2").Select

 'Trying to automatically rename the sheets
 Sheets("Sheet2").Name = "="
 Range("E13").Select
 Sheets("=A1").Select
End Sub

在这里，我不知所措，非常感谢您的帮助或建议。 非常感谢！