Servivano entrambe!
La prima, in riferimento al primo caso era giusta ma, nel secondo caso sommava solo le celle con asterisco.
Però, aggiungendo anche la seconda che sommava il tutto egregiamente, mi aggiungeva anche una stringa superiore che non riguardava.
Risolto con anziché + 1, 4, con + 0, 4.
If CAst > 2 Or Cells(I, 4) <> Cells(I + 0, 4) Then
Grazie infinite, stavo già sclerando con la rotellina del mause.
Notte