Autofiltro con variable en Excel

hola, espero puedan ayudarme, se supone que es algo sencillo pero no puedo hacer que funcione mi código. Primero les explico. Tengo un archivo de Excel y necesito hacer un filtro de una hoja basado en el contenido de dos celdas de otra hoja, entonce hice dos variables tipo string para guardar el contenido de las celdas y después las puse como referencia al filtro, y al correr la macro supuestamente hace el filtro pero no me aparece nada me pone la hoja sin contenido solo me aparecen los Headers.

Aquí les pongo mi código, gracias:

Sub beta()
Dim x, y, z As Integer
Dim x2, x3 As String
x = Application.Rows.Cells
z = Application.ActiveCell.Column
y = Application.ActiveCell.Row
Dim i As Integer
i = 3
 If Hoja4.Cells(i, 3) = " " Then
 Else
 If y = i And z = 10 Then
 Sheets("FECHA").Select
 Range("A1").Select
 x3 = Hoja4.Cells(i, 3).Text
 x2 = Hoja4.Cells(i, 5).Text
 Selection.AutoFilter field:=9, Criteria1:=x3
 Selection.AutoFilter field:=13, Criteria1:=x2
 Else
 MsgBox "Error", vbInformation, "Error"
 End If
 End If
End Sub

Espero alguno me pueda ayudar a ver que es lo que estoy haciendo mal. Gracias.