Macro to search a column and if a cell contains a word replace that cell with that word

[John T]

I have data in column 'A' with lots of models of cars that i need shortening to just display the model.


An example of the data i have is as follows:

Make/model

Yaris TSpirit 5dr 1.33 VVT-i M

Prius T3 5dr 1.8 VVT-i Hybrid

Yaris T2 5dr 1.0 VVT-i Man

Yaris 1.3 GLS (CDX) Auto 5dr

AYGO Fire 5dr 1.0 VVT-i Man AC

Avensis T3-X Tourer 2.2 D-4D M

Prius T Spirit 5dr 1.8 VVT-i H

Verso TR 2.0 D-4D Man

Avensis T2 5dr 1.8 VVT-i Man

Auris 5Dr Hat 1.6 Sr Manual

Avensis T3-S 5dr 1.8 VVT-i Seq

Yaris Verso 1.3 A Premium

Avensis T3S 5dr 1.8 A

Land Cruiser Invincible 5dr 3.

<tbody>
</tbody>

I need a macro to search column A and if a cell contains the word Yaris (for example) to replace that cells contents with Yaris, if not i need it to then search for the next model, Prius for example, and replace the contents of that cell with that model.

If a cell doesn't contain one of the lookup words i need it to leave that cell as it is.

I need the above data to look like this after the macro.

Make/model

Yaris

Prius

Yaris

Yaris

Aygo

Avensis

Prius

Verso

Avensis

Auris

Avensis

Yaris

Avensis

Land Cruiser

<tbody>
</tbody>