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, "* ")