Suma y producto de VBA
Private Sub CommandButton1_Click()
Dim c, r, s, n, tmp
En caso de error, reanudar siguiente
c = Columns("A").Column 'La posición de la columna donde se encuentran los datos, es decir, la columna A
For r = 2 To Cells(65536, c).End(xlUp).Row
n = InStr(1, "* ")