Найдите лист и скопируйте столбец на другой лист.

Question

Я пытаюсь найти лист в своей книге, найти конкретные метки времени и затем скопировать соответствующую строку на отдельный лист. Я использовал макрос-рекордер, чтобы понять, с чего начать, что помогло в создании массива. Но конкретные данные, которые мне нужны, не всегда хранятся, например, в ячейках "C4".

Я немного не уверен, как найти весь массив для этого массива, а затем скопировать столбец на лист с именем База данных

Спасибо!

Sub CopyData()

    Sheets("temp7").Range("$A$1:$J$141091").AutoFilter Field:=1, Criteria1:=Array( _
        "02/22/2018 00:00:00", "02/22/2018 01:00:00", "02/22/2018 02:00:00", _
        "02/22/2018 03:00:00", "02/22/2018 04:00:00", "02/22/2018 05:00:00", _
        "02/22/2018 06:00:00", "02/22/2018 07:00:00", "02/22/2018 08:00:00", _
        "02/22/2018 09:00:00", "02/22/2018 10:00:00", "02/22/2018 11:00:00", _
        "02/22/2018 12:00:00", "02/22/2018 13:00:00", "02/22/2018 14:00:00", _
        "02/22/2018 15:00:00", "02/22/2018 16:00:00", "02/22/2018 17:00:00", _
        "02/22/2018 18:00:00", "02/22/2018 19:00:00", "02/22/2018 20:00:00", _
        "02/22/2018 21:00:00", "02/22/2018 22:00:00", "02/22/2018 22:00:00"), Operator:=xlFilterValues
    Range("A27").Select
    ActiveCell.FormulaR1C1 = "02/22/2018 00:00:00"
    Sheets("Database").Select
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "02/22/2018"
    Range("C4").Select
    Sheets("temp7").Select
    Range("F27:F577").Select
    Selection.Copy
    Sheets("Database").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("A28").Select
End Sub