Concatenating part of string in two columns into a new column

Hi again!

I could use some (more) help on a project I’m working on.
I’m trying to concatenate two columns into a “new column A”. however, I only need part of the strings in each of the two columns:
- The first 8 characters in column E
- The last 2 characters in column H
- Like this: EEEEEEEE-HH

Problems with the code I have:
1. It copies the whole strings in column E and H into the “new column A”
2. Column H is formatted as dates, and I need the year to follow into the “new column A” – Not the value.

The sheet is one of many and has an unknown number of rows. I’ve attached a short example of the data, as well as how I want the result to be after I run the code.

I’ve also tried (but not been able) to modify a code by AlphaFrog found here:
http://www.excelforum.com/excel-prog...ormatting.html

The macro I'm using:

Please Login or Register  to view this content.

Any help is greatly appreciated!

maybe so

Please Login or Register  to view this content.

Thank you, alansidman and nilem! Both work perfectly

Here is the final makro:

Please Login or Register  to view this content.