Macro to concatenate rows

[Althas]

Hello all

I have a lot of workbooks that hold data in the same form at the attached workbook Sheet1

Starting with row 1, what I am trying to do is find a way to copy the next row, paste it to the end of the current row, then delete that next row moving the rest of the data up. Then move on to row 2 and repeat

The end result is shown on Sheet2

Can anyone help with a macro please?