Copy rows of data to another sheet in Excel and add column VBA

Question

I can\'t get my head around this.

I have a data structure like this:

I would like to end up with something like this (in another sheet).

If column E i