Scan and Count Rows

Hello,

I have a list that has a combination of cities listed in one field for about 20 rows. Some of the rows have one city some have three. I'm looking for a macro that will search all the rows in Column D and row 4 down on sheet2. It will search for the words Miami, New York, Texas. The total amount of times these come up will go to their corresponding rows on Sheet 1. Miami will have a total on e3, New york will total on f3 and Texas will total on g3. If there is a city that is not one of these it will total on sheet1 in cell h3. The macro will run for 30 rows. Any help on this would be greatly appreciated. Thanks for your time.

Trevor

Here is a sampleforum test.xlsx