Buscar encabezado si el valor es mayor a cero

Creo haberlo entendido y esta sería la solución: he puesto tus datos en una hoja en el rango A1:D5. Después tienes que seleccionar la celda A2 y ejecutar esta macro y te pondrá los encabezados en la columna E obedeciendo a tus instrucciones, es decir, solo el valor máximo y mayor que cero.

(Recuerda finalizar y puntuar mi labor)

Sub proceso()

Do While ActiveCell.Value <> ""

Range(ActiveCell, ActiveCell.End(xlToRight)).Select

For Each celda In Selection

máxima = Application.WorksheetFunction.Max(Selection)

If celda.Value = máxima And celda.Value > 0 Then

ActiveCell.Offset(0, 4).Value = celda.End(xlUp)

End If

Next

ActiveCell.Offset(1, 0).Select

Loop

End Sub

La utilice y me funciona perfectamente bien pero lo que pasa es que cada mes que vaya pasando se va incrementar el numero de filas y de columnas, por eso es que pedía una formula, estuve mirando respuestas que usted ha dado antes y encontré una formula en la respuesta BuscarV con distintos Rangos! donde aparece la formula coincidir así que la modifique a mis requerimientos así =COINCIDIR((MAX(A2:D2));A2:D2;0) y me coloca el numero de la columna donde ubico el valor mayor a cero, ahora quiero enlazarla con otra formula que me coloque el encabezado de la columna donde se ubica. Esta petición es porque no conozco casi de VB, sin embargo modifique las instrucciones de (0, 4) por las columnas de mi archivo y me coloco los encabezados pero es que como dije antes las filas pueden aumentar según el numero de registros y lo mismo las columnas por eso es que quiero la formula para acondicionarla al numero de registros. Gracias

Si aumentan las lineas y las columnas puedes seguir usando mi macro con una ligera modificación, que te marco aquí:

Donde dice:

ActiveCell.Offset(0, 4).Value = celda.End(xlUp)

tienes que poner

ActiveCell.End(xlToRight).Offset(0, 1).Select

Recuerda que antes de ejecutar la macro, te tienes que posicionar en el primer valor de la tabla, en mi caso era la celda A2.