Find Text, Then Return the Sum of its values in Col D
 

I am looking to find a piece of VBA that will look up certain text in a column and where found return the values in another column

Example

Say I'm looking for the number "America" appears in Column B, then for each instance add together the values in Column D

The Text in Column B will be of multiple words, thus in any line where "America" appears in Cilumn B then sum up the values associated with this in Column D