Placing Row Titles in Rows Below

[lookout08]

Good Afternoon All;

I am running into an issue I can't resolve with a data export. The data exports with what I suppose would be called a "Header" row, with the corresponding data in the rows beneath. There is no certain number of rows beneath, and due to the size of the file I can't do this manually. I am attempting to get all of the relevant data in a single row, but no solutions are coming to me. I have placed a crude example below (first post, still learning the example upload).

Current Situation:

Apples
John Smith / 5 Bushels / 7-5-2016

Needed Situation:

Apples/ John Smith / 5 Bushels / 7-5-2016

Anything you can think of would be a huge help; I've hit a complete wall on this one.

 

[Fluff]

Ok, how about

Sub lookout08()
   With Range("B1", Range("B" & Rows.Count).End(xlUp))
      .SpecialCells(xlConstants).Offset(, -1).Insert xlToRight
      .SpecialCells(xlConstants).Offset(, -1).FormulaR1C1 = "=r[-1]c"
      .Offset(, -1).Value = .Offset(, -1).Value
      .SpecialCells(xlBlanks).EntireRow.Delete
   End With
End Sub

 

[lookout08]

Hello Fluff;

Thank you for all of your help so far! Right now I'm getting a 1004 error when I plug that formula in. Is there any other info I can provide that could help?

 

[Fluff]

Which line gives the error & what is the error message?

 

[lookout08]

Nevermind; re-ran the code in a new worksheet and it works like a dream! Thank you so much! I never would have gotten this done!!!

 

[Fluff]

You're welcome & thanks for the feedback