Add like text totals of columns at bottom of column

[duugg]

Hello,

Note that the "Fruit" and "Fruit Totals" column letter position will always be different every time I run the macro, so I would like the macro to find these columns by name rather than by column letter.

I'd like a macro that adds the total number of fruits in the "Fruit" column by looking doing 2 things...

1. Add the total number of "Fruits" in the "Fruit" column, find the bottom-most row of data in the "Fruit" column, go down 2 rows, and create the text named "Fruits Total"

2. In the cell directly to the right of "Fruits Total" put the value of the total number of fruits in this cell (which will be in the "Fruit Totals" column)

3. Add the total number of "Apples" in the "Fruit" column, find the bottom-most row of data in the "Fruit" column, go down 2 rows, and create the text named "Apples Total"

4. In the cell directly to the right of "Apples Total" put the value of the total number of apples in this cell (which will also be in the "Fruit Totals" column)

5. Repeat steps 3 & 4 for the other fruits


Best to show you an example

Col "x"?           Col "x"?
Fruit	      Fruit Totals
Apple	
Apple	
Orange	
Pear	
Grape	
Cherry	
Cherry	
Apple	
Pear	
Orange	
Pear	
Grape	
Cherry	
Cherry	
	
Fruits Total         14
Apple Totals	3
Orange Totals	2
Grape Totals	2
Pear Totals	3
Cherry Totals	4

Thanks much!