Macro de filtro avanzado no funciona

Estuve probando una macro del señor marcrodos el cual ejecuta un filtro avanzado cuyo criterio de búsqueda empiece por una determinada letra lo que trae como resultado todos los datos que empiecen por esa letra y a mi no me quiere funcionar, al ejecutarla se esconden todos los datos y tengo que ir a dator y borrar filtro para que aparezacan de nuevo las filas, por más que trato de encontrar mi error no lo consigo si me pueden ayudar se los agradezco

Private Sub buscar()

Dim Uf As Long

If Hoja1.FilterMode = True Then Hoja1.ShowAllData
Uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row
Hoja1.Range("A4:D" & Uf).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:A2"), Unique:=False

End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Hoja1.Cells(2, 1).Value = "*" & TextBox1.Text & IIf(TextBox1.Text = "", "", "*")
Call buscar
End Sub