Move data from row to cell, but single cel to multiple cell.

I am taking data from one spreadsheet and condensing it so it can be imported in my software once a month. The "milesbytractorandstate" file is the source file and the "miles import" is what the finished file needs to be. I need to move all the data into four columns; UNIT, DATE, STATE, and MILES. Autofilling the STATES is easy, the DATE is always the first day of the month so it's easy, I have a macro to move all of the miles into a single column for all the units. The issue is figuring out how to populate the UNIT column. Every unit will always have 63 rows of miles since there will always be 63 STATES. At this point i'm not sure which route to take; do i need a formula, a macro, or is there a function i just can't think of. Thank you in advance.

The meaty parts of my current process are as follows:
I copy all of the source file and paste special (values,transpose) into the blank file with the macro. I delete to total miles row and highlight all of the miles and run the macro to move them all to one column. I create a STATE and DATE column. Now row A is all of the units and i need to move them to a column.

hi puckaveli, welcome to Excelforum, VB option, please check attachment, run code "test"

PS. Date is the first day of the current month and current year