Excel 复制超出自动筛选范围的数据

我正在尝试创建一个excel文档，它从另一个软件中获取粘贴的数据，并根据所述数据生成报告

数据的格式是

ID, YYYY, MM, DD, HH, MM, SS, Day

数据成对到达。因此，一个有效条目是：

1 2017 8 24 09 44 52 4
1 2017 8 24 10 50 00 4

然后，用户可以访问完整的原始数据转储，也可以创建报告

如果用户希望创建报告：用户从组合框中选择一个日期，并从选项按钮中选择是否希望所有数据来自：之前、之后或所选日期的所有数据

这是一个筛选代码的示例，适用于所选日期之前。 这将根据需要过滤数据，并将过滤后的数据复制到报表架构中

If OptionButton1 = True Then     'Before Selected Date 
  With Worksheets("PasteData")
    .Range("A1:H1").AutoFilter Field:=4, Criteria1:="<=" & ComboBox1.Value
    .Range("A1:H1").AutoFilter Field:=3, Criteria1:="<=" & Mid(ComboBox2.Value, 1, 2)
    .Range("A1:H1").AutoFilter Field:=2, Criteria1:="=" & ComboBox3.Value 
    .Range("A2:H" & LastRow).Copy Destination:=Sheets("Report").Range("A6")
  End With
End If

现在，如果我按天筛选，并选择8月24日之前的所有数据（包括8月24日），那么我将丢失该对中的另一个条目

很明显，我需要一些东西来检查日期是否会延长到另一天

我想我需要的是：

If Entry1ID1 = Entry1ID2 __ ' Entry ID's Match
    AND Entry1Day1 <> Entry1Day2 'Entry days are different Then
  copy selection + 1

If Entry1ID1 = Entry1ID2 __ ' Entry ID's Match
    AND Entry1Day1 <> Entry1Day2 'Entry days are different Then
  copy selection + 1

for each selection in range
  if selection - 1 ID = selectionID then
    selection -1 . select
  Else 
    selection + 1 . select
Next