Moving Nth Row Right And Up Multiple Times?

I have essentially the same issue with my spreadsheet, but mine is a little easier. I have written code to do the first few steps. I could just use some assistance with the middle. I know my thought on the process is "the long way", but with my experience in VBA I have to keep it simple. Here is my data and then the way I want it to look. I can add a macro to make it pretty afterwards, unless your way is easier (and I understand what is happening). --Oh, I am trying to automate my inventory process.

I have a spreadsheet and i wish to move every nth cell in column A to the initial cells in the row.

example:
Cell A2 moves to E1
Cell A3 moves to F1

Until the end and then select all and sort by column B (this would get rid of blanks and sort everything) before moving to the pretty stage.

How the data comes in. And my Final Goal.

This document is several thousand lines long. I made up the data to protect the weak. There can be duplicate usernames and vendors, but never serial numbers and computer names. Duplicates should be highlighted to be found easily and researched.

I only need to get to the middle picture. After that I can modify with what I come up with.