根据日期

Question

在构建宏时，我是一个新手。我并不熟悉如何构建一个。

但是我正在尝试使用宏录制器制作一个能够自动复制标有“报表计算器”的工作表中的数据并将其推送到日期标记的同一工作簿中的另一个工作表。

我的工作表标有“1”，“2”，“3”等....是否也可以在宏中添加过滤器，以便根据日期将数据推送到工作表？如果我要问的是令人困惑，我道歉。

这是我使用录音机时遇到的代码，我收到调试错误

Sub Report1()
'
' Report1 Macro
'
    ActiveCell.Offset(-11, -7).Range("A1:E1").Select
    Selection.Copy
    Sheets("1").Select
    ActiveCell.Offset(-16, 0).Range("A1").Select
    Application.CutCopyMode = False
    ActiveSheet.Paste
    ActiveCell.Offset(4, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(4, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(4, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(3, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 2).Range("A1").Select
End Sub