VBA to search list and apply value to different list

[KyleJackMorrison]

Hello, wonder if you can help me.

I have a list comprising of:
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]ID[/TD]
[TD]Title[/TD]
[TD]Name[/TD]
[TD]Dept[/TD]
[/TR]
[TR]
[TD]2223344[/TD]
[TD]Mr[/TD]
[TD]Adam[/TD]
[TD]1 Dept[/TD]
[/TR]
[TR]
[TD]3344555[/TD]
[TD]Miss[/TD]
[TD]Hannah[/TD]
[TD]1 Dept[/TD]
[/TR]
[TR]
[TD]7755882[/TD]
[TD]Mrs[/TD]
[TD]Jade[/TD]
[TD]2 Dept[/TD]
[/TR]
[TR]
[TD]9772348[/TD]
[TD]Mr[/TD]
[TD]Joe[/TD]
[TD]3 Dept[/TD]
[/TR]
</tbody>[/TABLE]

The external program that i use exports a csv however leaves out the 'Dept'
Is there a way to run a vba from my list here to then enter it on the csv list:

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]ID[/TD]
[TD]Title[/TD]
[TD]Name[/TD]
[/TR]
[TR]
[TD]9772348[/TD]
[TD]Mr[/TD]
[TD]Joe[/TD]
[/TR]
[TR]
[TD]3344555[/TD]
[TD]Miss[/TD]
[TD]Hannah[/TD]
[/TR]
[TR]
[TD]7755882[/TD]
[TD]Mrs[/TD]
[TD]Jade[/TD]
[/TR]
[TR]
[TD]2223344[/TD]
[TD]Mr[/TD]
[TD]Adam[/TD]
[/TR]
</tbody>[/TABLE]

Note: My original list is sorted alphabetically. The csv is sorted by id number.

Many thanks in advance.