Multiselect drop down using VBA code is not totaling correctly

[ShanaStJ]

VBA code has been entered and it successfully works except now it's adding the same title at the bottom when my goal is to calculate the total of each one. For example, there are two structured when I want it total that versus separate it out. I have included the formula's I'm using. I'm also having a problem of it working until I reopen the spreadsheet as even a macro enabled.

Formula for the type of activity
=UNIQUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(",",,J12:J38),",")))

Formula for adding those activities even if multiple are entered int he same box from the drop down.
=SUM(--(TEXTSPLIT(TEXTJOIN(",",,$J$12:$J$38),",")=J39))

Any help greatly appreciated.

 

[Fluff]

How about

=UNIQUE(TRIM(TEXTSPLIT(TEXTJOIN(",",,J12:J38),,",")))

and

=SUM(--(TRIM(TEXTSPLIT(TEXTJOIN(",",,$J$12:$J$38),","))=J39))