Ciao,
date un'occhiata penso che adesso possa andare.

codice:
Sub PROVA_A1()

i = 1

With Worksheets("prova2").Range("C:C")
   .Value = ""
End With

If Worksheets("prova2").Range("a1").Value <> "" Then
   For Each casella In Worksheets("Foglio3").Range(Worksheets("Foglio3").Cells(2, 2), Worksheets("Foglio3").Cells(Worksheets("Foglio3").[a1].Value + 1, 2))
      If CStr(casella.Value) = Worksheets("prova2").Range("a1").Value Then
         i = i + 1
         Worksheets("prova2").Cells(i, 3) = casella.Offset(0, 1)
      End If
   Next
End If


End Sub
Ho modificato la pagina dove cerca i dati (che è il foglio3).