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

Hi

The above can be obtained using formulas.

E1: =IF((ROW()-1)*3>=COUNTA(A:A),"",OFFSET($A$1,(ROW()-1)*3,0))
F1: =IF(E1="","",OFFSET($A$1,((ROW()-1)*3)+1,0))
G1: =IF(E1="","",OFFSET($A$1,((ROW()-1)*3)+2,0))

Copy down to match the relevant data.

If you do really need a macro then try

Sub aaa()
  outrow = 1
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
    Cells(outrow, "E").Value = Cells(i, 1).Value
    Cells(outrow, "F").Value = Cells(i + 1, 1).Value
    Cells(outrow, "G").Value = Cells(i + 2, 1).Value
    outrow = outrow + 1
  
  
  Next i
  
End Sub

HTH

rylo