Necesito una macro que detecte el valor máximo, y a partir de esa celda valide cuando suba el valor en todo un rango

Se si te entendí muy bien pero prueba esta macro o ve si es lo que necesitas:

Sub BuscarMayor()
Dim i As Long
Dim a As Long
Dim ValorMaximo As Integer
Dim ValorComparar As Integer
Dim ValorEncontrado As Integer
Dim l As Long

Fila = Range("A65000").End(xlUp).Row
For i = 1 To Fila
ValorMaximo = Hoja1.Range("A" & i).Value
For a = 1 To Fila
ValorComparar = Hoja1.Range("A" & a + 1).Value
If ValorMaximo < ValorComparar Then
ValorEncontrado = ValorComparar - ValorComparar
End If
Next
Next
Hoja1.Range("B1").Value = ValorEncontrado
End Sub

Hola Ricardo, sinceramente Muchas gracias, la manera que usas si es la correcta, y discúlpame te molesté otra vez, pero no comenté que los valores a evaluar están en verticales es decir en un rango de O2:AS2. Yo intente modificar los rangos de acuerdo al workbook que tengo y quedo de la siguiente manera pero marca error. Te dejo los datos abajo

Lo resaltado en negro es lo que cambie en tu código:

Sub BuscarMayor()
Dim i As Long
Dim a As Long
Dim ValorMaximo As Integer
Dim ValorComparar As Integer
Dim ValorEncontrado As Integer
Dim l As Long

Fila = Range("O65000").End(xlToRight).Row
For i = 1 To Fila
ValorMaximo = Worksheets("Hoja1").Range("O" & i).Value
For a = 1 To Fila
ValorComparar = Worksheets("Hoja1").Range("O" & a + 1).Value
If ValorMaximo < ValorComparar Then
ValorEncontrado = ValorComparar - ValorComparar
End If
Next
Next
Worksheets("Hoja1").Range("AU2").Value = ValorEncontrado
End Sub

Imagen del depurador (marco error que dice "No coinciden los tipos")

Imagen del archivo: 

Hola Ricardo, he usado la macro tal cual lo pusiste y el valor que me esta dando es 0, he adjuntado otra foto la cual me ayudara para explicarme.

De la foto lo que busco es que la macro valide los valores de C2:T2 Y  en la celda U2 ponga la ultima cantidad que entro, y después pase a hacer la misma validación en C3:T3 Y ponga la ultima cantidad que entro en U3.

Espero me pueda ayudar, muchísimas gracias

En este caso debemos usar la forma Cells para recorrer mejor hacia la derecha, te da 0 por que estas restando la misma cantidad; Detallemos, ValorMaximo va a ser el primer valor es decir el que esta en la A1 y Valor a Comparar es B1, se realiza una comparación y luego si se cumple el criterio se restan lo valores creo que fue lo que te entendí, de igual manera el criterio o la condición se la puedes modificar en el IF ya que sabes cual es cada valor, y en la ultima linea tu mismo podrás colocar donde quieres el resultado. Espero te ayude no olvides Valorar la respuesta amigo por favor.

Sub BuscarMayor()
Dim i As Long
Dim a As Long
Dim ValorMaximo As Double
Dim ValorComparar As Double
Dim ValorEncontrado As Double
Dim l As Long

Fila = Worksheets("Hoja1").Range("A1").End(xlToRight).Column
For i = 1 To Fila
ValorMaximo = Worksheets("Hoja1").Cells(1, i)
For a = 1 To Fila
ValorComparar = Worksheets("Hoja1").Hoja1.Cells(1, a + 1)
If ValorMaximo < ValorComparar Then
ValorEncontrado = ValorComparar - ValorEncontrado
End If
Next
Next
Worksheets("Hoja1").Range("AU2").Value = ValorEncontrado
End Sub

¡Gracias! Mi estimado Ricardo, en efecto, la condicionante ya se puede modificar después.

Mira que al correr la macro me manda un error de ejecución 13: no coinciden los tipos. Y la línea que resalta es la siguiente:

ValorMaximo = Worksheets("Hoja1").Cells(1, i)

Yo aprecio mucho la ayuda y ya he valorado tus respuestas con excelente porque definitivamente el punto de inicio que yo tenía y donde estamos actualmente es un gran avance.

Espero poder contar con tu ayuda nuevamente para saber porque esta marcando ese error, ya he intentado quitando worksheets y poniendo solo Hoja1.Cells(1, i) pero continua marcando eso.