Traducir función, de excel a VB

Como no eres muy concreto como quieres que se ejecute, lo pondré de una manera sencilla. Luego tu mismo te lo "tuneas" a tu gusto.

Create un módulo dentro el proyecto VBA y pegas este código:

Sub funcion_indice()
Dim hoja As String Dim i As Double, j As Double, res As Double Dim v1 As Range, v2 As Range
'Función con parámetros a conseguir:

'INDICE(Mov_Central!B4:$H$13;COINCIDIR(MAX(Mov_Central!H4:H13);Mov_Central!H4:H13;0);3)

'como no se de que hoja se va a efectuar el cálculo, la guardo en la variable hoja para luego volver a ella

hoja = ActiveSheet.Name

Application.ScreenUpdating = False

'selecciono la hoja Mov_Central para realizar el cálculo

Sheets("Mov_Central").Select

'asigno valores a las variables

Set v1 = Range("B4:$H$13")

Set v2 = Range("H4:H13")

i = Application.WorksheetFunction.Max(v2)

j = Application.WorksheetFunction.Match(i, v2, 0)

'obtengo el resultado

res = Application.WorksheetFunction.Index(v1, j, 3)

'muestro el resultado en un mensaje

MsgBox "Resultado final:" & vbCrLf & res

'regreso a la hoja original

Sheets(hoja).Select
End Sub

Para que puedas ejecutar el código debes asignar esta macro a un botón de formulario o una celda en concreto.

Espero haberte ayudado. Si tienes algún problema, no dudes en preguntar.

Saludos desde Sevilla. No te olvides de finalizar y puntuar la pregunta.