moving cell contents

I need to have the data from a text file rearranged to show each product in one row.

I attached the original file and changed the first 2 lines to show what is wanted.

Hi Mikeyd1
Looking at your file, it appears that each item has either 7 or 6 rows of data associated with the item. Will this ALWAYS be true?

Hello Mikeyd1,

Welcome tot he Forum!

The macro below will convert the data from horizontal to vertical. The converted text is copied over to a second sheet named "Results". The macro was written to start at cell "A13". Your actual file probably starts at a different cell. Change the starting cell marked in bold in the macro below before running this on the real file. Also, be sure to add another worksheet and name it "Results" in your workbook with the original text. There is button on the "Results" worksheet to run the macro.

Sub TransposeText()

  Dim Data() As Variant
  Dim DstRng As Range
  Dim DstWks As Worksheet
  Dim I As Long, N As Long, R As Long
  Dim RngEnd As Range
  Dim SrcRng As Range
  Dim SrcWks As Worksheet
  
    Set SrcWks = Worksheets("utf8BQ2j")
    Set DstWks = Worksheets("Results")
    
      Set SrcRng = SrcWks.Range("A13")
      Set RngEnd = SrcWks.Cells(Rows.Count, SrcRng.Column).End(xlUp)
      
      If RngEnd.Row < SrcRng.Row Then Exit Sub
      
      Set SrcRng = SrcWks.Range(SrcRng, RngEnd)
      
      Set DstRng = DstWks.Range("A2")
      DstWks.UsedRange.Offset(1, 0).ClearContents
      
        ReDim Data(1 To (SrcRng.Rows.Count \ 2), 1 To 7)
        
        For R = 1 To SrcRng.Rows.Count Step 2
          N = N Mod 7
          If N = 0 Then I = I + 1
          Data(I, N + 1) = SrcRng.Item(R)
          N = N + 1
        Next R
        
      DstRng.Resize(I, 7).Value = Data
      
End Sub