Ho verificato il tuo esempio però non capisco bene cosa fa nel punto in cui ti ho inserito un commento:

codice:
Set cartExcel = Excel.Workbooks.Open("e:\pc_over.xls")
For Each casella In Worksheets("Foglio1").Range(Cells(1, 1), Cells(10, 1))
      If CStr(casella.Value) = "Marlboro" Then
         Cells(1, 8).Value = casella.Row         'QUI (SE TROVA LA SCRITTA MALBORO CHE VALORI METTE NELLE CELLE (1,8) E (2,8)??????  
         Cells(2, 8).Value = casella.Column
         [F5] = "altro valore"
      End If
   Next
Comunque il mio problema sarebbe:

Andare a verificare se nel range c'è quel valore, se quel valore che cerco esiste mi deve dire in che cella è, ed io vado a scrivere in una cella della stessa riga una qtà.

dimmi se mi sono spiegato male.
Grazie ancora.

P.s. non sono molto esperto di vb6