Boa tarde Freitas.

Bom eu utilizou o comando Find, dessa maneira. Ele utiliza a mesma logica que o procv, sempre da esquerda pra direita. No exemplo abaixo a data esta na coluna A, por isso que o campo nome.value esta (0, 1) o ttelefone.value(0,2) e assim por diante.

Sheets("Cadastro").Activate
With Worksheets("Cadastro").Range("A:A")
Set a = .Find(DateValue(tdata.Value), LookIn:=xlValues, LookAt:=xlPart)

If (Not a Is Nothing) Then
a.activate
tnome.value = a.Offset(0, 1).Value
ttelefone.value = a.Offset(0, 2).Value
tidade.value = a.Offset(0, 3).Value
End If

freitasag,

Boa Tarde!

Segue minha sugestão.