Hola, aca va un codigo que te permite hacer eso
Asegurate de que en B no tengas nada
Código:
Sub Busco_Maximo()
'Creamos una variable del tipo rango
Dim MiRango As Range
'Le asiganamos el contenido. Asi si cambia en el futuro no hay que modificar
'la macro
Set MiRango = Range("A1").CurrentRegion
MiRango.Select
'Mostramos en C1 el maximo
Range("C1").Formula = "=MAX(" & MiRango.Address & ")"
End Sub
Espero te sirva. Saludos