Non sono bravo con le matriciali, penso che Tu desideri....
Differenti da vuote (colonna C), trovami "MARIO" in R
Ex in Elenco cella J1 =scrivi Mario, in colonna N avrai i risultati
vb
Option Compare Text
Sub Trova()
Application.EnableEvents = False
Dim X As Long, Ur As Long, R As Long
Ur = Sheets("consuntivi").Range("A" & Rows.Count).End(xlUp).Row ' fine riga consuntivi
R = 1
For X = 26 To Ur '25 = inizio riga consuntivi
If Sheets("consuntivi").Cells(X, 3) <> "" And Sheets("consuntivi").Cells(X, 18) = Sheets("ELENCO").Cells(1, 10) Then
Sheets("ELENCO").Cells(R, 14) = Sheets("consuntivi").Cells(X, 3)
R = R + 1
End If
Next X
Application.EnableEvents = True
End Sub
Excel 2013