Ecuación de Excel de VBA que continúa en la columna

Estoy tratando de escribir una ecuación que varía en la columna, la ecuación general es la misma.

Es decir, hay una columna A, B y C, con la ecuación que muestra los resultados en la columna C. La ecuación general = C1 (un resultado inicial) + (B3 + B1) / 2 * (A3-A1) que se actualizaría en la siguiente fila a

= C2 + (B4 + B2) / 2 * (A4-A1) y así sucesivamente a medida que avanzas por la columna

Además de esto, he incluido * para mostrar en la Columna C cuando no hay valores en la columna A, el código que he escrito hasta ahora se muestra a continuación, realmente espero que alguien me pueda ayudar gracias

''''row number = row number + 1 on a loop Worksheets("Sheet3").Cells(19, 1) = 0 '''this is A1=0 Worksheets("Sheet3").Cells(19, 3) = 0 '''This is C1 = 0 If Worksheets("Sheet3").Cells(19 + row_number, 1) = "" Then ''''if cell in A column is blank show * in column C Usui_wear_depth = "*" Else: Usui_wear_depth = Application.WorksheetFunction.Sum(Sheet3.[C22] + (([B25] + [B22]) / 2) * ([A25] - [A21])) ''' this is the General equation End If Worksheets("Sheet3").Cells(19 + row_number, 6) = Usui_wear_depth 

Esto se puede hacer fácilmente como una fórmula única, sin necesidad de VBA:

 =IF(ISBLANK(A3),"*",C1+(B3+B1)/2*(A3-$A$1)) 

Si simplemente copy esta fórmula en las celdas de la columna C, cambiará según lo descrito.

Hice la reference a A1 una reference absoluta, ya que era la única en su ecuación que no cambió de la primera versión a la segunda. También puede decidir qué celda de la Columna A debe marcarse para mostrar '*'. No lo entendí por su pregunta. ¡Espero que esto ayude!