*UPDATE* Rows of data to Columns of data *UPDATE*

Hello a6ela,

Here is an automated VBA solution. The macro below copies the data in column "A" three rows at a time to columns "E:G" as single rows. A button has been added to the worksheet to run the macro.

Sub RowsToColumns()

  Dim Cell As Range
  Dim Data() As Variant
  Dim N As Long, R As Long
  Dim Rng As Range
  Dim RngEnd As Range
  Dim Wks As Worksheet
  
    Set Wks = Worksheets("Sheet1")
    
    Set Rng = Wks.Range("A1")
    Set RngEnd = Wks.Cells(Rows.Count, Rng.Column).End(xlUp)
    Set Rng = IIf(RngEnd.Row < Rng.Row, Rng, Wks.Range(Rng, RngEnd))
    
    ReDim Data(1 To Rng.Rows.Count, 1 To 3)
    
      For R = 1 To Rng.Rows.Count Step 3
        N = N + 1
        Data(N, 1) = Rng.Item(R)
        Data(N, 2) = Rng.Item(R + 1)
        Data(N, 3) = Rng.Item(R + 2)
      Next R
      
    Wks.Range("E1:G1").Resize(UBound(Data, 1), UBound(Data, 2)).Value = Data
      
End Sub