Need VBS to sum value in column H based on selection

Hi.

I load a sheet with BOM information for multiple parts via cut and paste from another program. At the time of the paste, the data I need is selected. From that selection, I need the code to sum only the data in column H. I'd like to output the total 1 row below the selected cells in column H.

Note: I will continue down the sheet with other parts, therefore I need the code to reference from the active cell, not a fixed cell (e.g. A1).

Your guidance would be greatly appreciated.

Thanks!