Reformatting export from Intuit POS

[k10sat]

I am trying to reformat data I exported from my Point of Sale system. Below is an example of how the data exports from POS. The first line details the transaction date and sales total. Lines 2 - 4 specify the items on that transaction.

8/28/14	137.84
	#711	Games	Travel Bingo	50.22
	#96	Childrens	Nap Sack	50.62
	#108	Childrens	Butterfly Hat	37.00
8/28/14	35.47
	#107	Childrens	Ladybug Hat	35.47

<tbody>
</tbody>

If possible, I would like to move the detail data up one row/over one column --

8/28/14	137.84	#711	Games	Travel Bingo	50.22
		#96	Childrens	Nap Sack	50.62
		#108	Childrens	Butterfly Hat	37.00
8/28/14	35.47	#107	Children's	Ladybug Hat	35.47

<tbody>
</tbody>

Is there a way to automate this in Excel? I have pages and pages of transactions that I need to update.

Thanks for your help!

 

[MickG]

Try this:-
The code assumes that your data starts in "A1" , and for every Date in column "A", you have some related data in the rows below starting column "B".

Dim Rng         As Range
Dim Dn          As Range
Dim fRng        As Range
Dim sRng        As Range
Dim c           As Long
Set Rng = Range(Range("B1"), Range("B" & Rows.Count).End(xlUp))
Set fRng = Rng.Offset(, -1).SpecialCells(xlCellTypeConstants)
Set sRng = Rng.Offset(, -1).SpecialCells(xlCellTypeBlanks)
For Each Dn In fRng.Areas
    c = c + 1
    sRng.Areas(c).Offset(, 1).Resize(, 4).Cut Dn.Offset(, 2)
Next Dn

 

[k10sat]

Perfect, thank you!!!!

 

[MickG]

You're welcome