还是VBA问题？

Sub 提取十一月机械日报数据()
'
' 十一月粘贴主表数据 Macro
'

If MsgBox("确认要提取当前月份数据吗？", vbInformation Or vbOKCancel) = vbOK Then

Sheets("机械日报录入").Visible = True
Sheets("机械日报录入").Select

Range("A1:AN2797").Select
Selection.Copy
Sheets("11月机械日报").Select
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=24
End If
End Sub

有一个主表，还有另十二个附表， 希望进入每个月附表后，按粘贴选择宏，那个主表上的内容就粘贴到选中的附表中，现在我做是一个月粘贴，用这种方式需要做12个宏，有什么办法做一个宏就能满足那12个宏的要求呢，请VBA大侠出高招了，谢谢！！（主表就是那个机械日报录入）

用循环做。不需要12个宏

Range("A1:AN2797").Select,选中内容在十二个月内有否区别，如有区别，有否规律可寻？