Guru do Excel e Power BI

Private Sub Worksheet_Calculate()
 LocalizaPessoa
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$C$1" Then LocalizaPessoa
End Sub

Sub LocalizaPessoa()
 Dim n As Long, k As Long, c As Long
  n = Range("B2:B" & Cells(Rows.Count, 2).End(3).Row).Find([C1]).Row
  For k = 3 To 15 Step 4
   If Cells(n, k) <= [A1] And Cells(n, k + 1) >= [A1] Then
    [D1] = Cells(n, k): [E1] = Cells(n, k + 2): [F1] = Cells(n, k + 1): Exit Sub
   End If
  Next k
  [D1:F1] = "": [D1] = "ausente"
End Sub