Funcion SGLOBAL (EXCEL)

Hola a todos ! nececito ayuda
tengo las siguientes datos

cod cantidad
4 15
1 2
3 46

y una tabla con
cod descr precio
1 aaa 100
2 bbb 50
3 ccc 125
4 ddd 10
5 eee 8

necesito calcular en una celda la suma total de las cantidades de la primera
tabla por los correspondientes precios en la segunda
(la primera tabla tiene 15 filas y algunas pueden estar vacias)
esto lo debo repetir en varias tablas similares que estan en diferentes
ubicaciones (cada 15 filas comienza una nueva tabla) por lo que se requiere
usar una direccion indirecta dependiendo de la posicion de la tabla

logre hacerlo con una funcion definida pero creo que habra otra forma sin
recurrir a las macros
me gustaria que alguien ne indicara como hacerlo con las funciones de excel
como por ej (buscar,burcarv,sumaprosucto,sumasi,etc) en realidad ya lo hice
pero no funciona cuando alguna de las filas esta vacia.

esta es la funcion

Function SGLOBAL1(A As Range, B As Range, C As Integer, D As Range)
Dim X As Integer
Dim Y As Integer
SGLOBAL1 = 0
X = A.Count
For Y = 0 To X - 1
If Cells(A.Row + Y, A.Column) <> "" Then
SGLOBAL1 = SGLOBAL1 + Application.WorksheetFunction.VLookup(Cells(A.Row + Y,
A.Column), B, C, 0) * Cells(D.Row + Y, D.Column)
End If
Next

End Function

de antemano las gracias.

Me alimento del conocimiento de todos