macro para autofiltro

Selection.AutoFilter Field:=1, Criteria1:=range("h1").value

tengo tres columnas con la sig informmacion
(la columna izq corresponde a num linea y A B C son las
col)

A B C
1 DIA EMPL RUTA
2 1 1 1
3 1 2 3
4 1 3 2
5 1 4 4
6 2 1 3
7 2 2 1
8 2 3 4

y asi hasta completar a dia 31

yo quisiera que al poner un valor en H1 (por ejemplo) me
hiciera un autofiltro con el valor de H1

hice una macro y el codigo que se escribio es el siguiente

Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="14"

pero el valor 14 lo toma porque yo lo escojo

Mi pregunta es como puedo tomar ese valor de H1

ya probe como muchas variantes de lo sig pero no logro
hacer lo que quiero

Selection.AutoFilter field:=1, criterial:=R8C1
o
Selection.AutoFilter field:=1, criterial:="=R8C1"

Les agradezco su ayuda