Ciao
Poniamo che i tuoi dati siano in col.A, prova con questa macro
[CODE]Sub quant()
ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ur
pos = InStr(Cells(i, 1).Value, "Q.TA")
aa = Left(Cells(i, 1).Value, pos + 4) & 100
Cells(i, 4) = aa
Next i
End Sub
Mario