Arquivo Corrompido... Por favor, tente postar novamente.

Mas de antemão posso dizer o seguinte:

Você criou uma definição para a Msgbox. Use essa mesma definição como valor para a céula C2.

Suponhmaos que você fez assim:

Dim ul as long
Ul = plan1.range("A" & rows.count).end(xlup).row ' encontrando a ultima linha
Msgbox ul
[C2].Value = ul

Sub Contador()
 Dim NUMEROREGISTROS As Long
NUMEROREGISTROS = Range("A65536").End(xlUp).Row
'MsgBox "Número de Registros: " & numeroRegistros, vbOKOnly, "Número de registros em: " & Now()
 Plan1.Range("C2").Value = NUMEROREGISTROS
End Sub