Данные для конкретной даты

Question

Цель: когда я выбираю дату в конкретном cel («G1»), тогда таблица должна фильтровать данные только для данной даты.

Что я сделал до сих пор:

Dim Topic As String 
Dim finalrow As Integer 
Dim i As Integer  'row counter 
Dim C As Range, rng 
Dim Test1 As String  'give the output by combining all the article topics 

Dim selectdate As Date

Sheets("Raw").Range("H2:I23").ClearContents   

Set selectdate = Sheets ("Sheets1") Range ("G1. ")

Set rng = Sheets("Sheet1").Range("A2:E50") 

'filtering data as per today's date 

Range("A1").Select 
Selection.AutoFilter 
ActiveSheet.Range("$A$1:$E$23").AutoFilter Field:=1, Operator:= _ 
    xlFilterValues, Criteria2:=Array(2, "12/16/2015") 


For Each C In rng 
Test1 = Test1 & C.Value 
Next C 
Range("H2") = Test1 

Но это только фильтрация конкретной даты. И не для даты, о которой я говорю в «selectdate». Я что-то пропустил, но не знаю, что.

Кроме того, ниже скриншот того, что я пытаюсь достичь:

Answer 1

ли это?

ActiveSheet.Range("$A$1:$E$23").AutoFilter Field:=1, Operator:= _ 
    xlFilterValues, Criteria2:=Array(2, SelectDate)