Macro for data distribution on a table

First of all, sorry for my english hope not so bad

I'm trying to automatize the filling of 4 different tables regarding time (hours , minute)
In other words first i need to select from about 500 products names about 180 products i need. I solved this with an automatic filter like this

"Sub Macro1()
'
' Macro1 Macro
'

'
       Columns("F:F").Select
    Selection.AutoFilter
    ActiveSheet.Range("$F$1:$F$650").AutoFilter Field:=1, Criteria1:=Array("0B" _
        , "0D", "4U", "7M", "A3", "A6", "AA", "AH", "AT", "BA", "BV", "CA", "CX", "DO", "EI", "ET", _
        "F7", "FB", "GJ", "HM", "HY", "IV", "LN", "LX", "LY", "LZ", "MS", "PS", "RB", "TS", "US", "V3" _  (and more values )
        ), Operator:=xlFilterValues
End Sub "

Now i have this values in a table with products (just filtered) place and time.

Place Time product
new york 06:00 AA
london 17:20 CU
rome 19:00 BC





The very hard thing now is to place all of this data in the four tables (morning,afternoon,evening, night) i told you like this , obviously with time criteria.

06:00 06:10 06:20 06:30 06:40


rome
london
new york


In this case product AA automatically positioning to A3

Hope you understand my needs.