Codigo en VB q sustituya esta formula d Exel

[lupirata]

Alguien q me ayude? a ver si es posible crear un codigo en visual basic que me haga la fucion de esta formula que utilizo en exel.
=SI(J6898>6,SUMA('Tablas DxC'!$B$3:$B$52*SI('Tablas DxC'!$A$3:$A$52=O6898,1,0)),SI(J6898<6,SUMA('Tabla s DxC'!$G$3:$G$52*SI('Tablas DxC'!$A$3:$A$52=O6898,1,0)))).
esta formula toma de una bd d exel, el valor en toneladas correspondiente a un % de calidad, con la condicion q si el peso bruto es mayor a x cantidad entonces toma el valor de una tabla y si es menor lo toma de otra.

espero no haberlos confundido.

un saludazo.

[3pies]

¿Esto no te vale?:

Código:

ActiveCell.FormulaR1C1 = "=IF(R[6896]C[8]>6,SUM('Tablas DxC'!R3C2:R52C2*IF('Tablas DxC'!R3C1:R52C1=R[6896]C[13],1,0)),IF(R[6896]C[8]<6,SUM('Tablas DxC'!R3C7:R52C7*IF('Tablas DxC'!R3C1:R52C1=R[6896]C[13],1,0))))"