Transpose into separate columns

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Try this...

Sub TrnasposeData()
Dim lr As Long, i As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To lr Step 5
    Range("A" & i).Resize(5).Copy
    Range("B" & Rows.Count).End(3)(2).PasteSpecial xlPasteAll, Transpose:=True
    Range("A" & i).Resize(5).Clear
Next i
Application.CutCopyMode = 0
Application.ScreenUpdating = True
End Sub

Paste this formula into B3

Fill right

Fill down until you get a line of zeros.

Formula:

=INDEX($A:$A,(ROW()-2)*5-2+COLUMN()-2,1)

Or fill this formula down until you get blank lines.

=IF(INDEX($A:$A,(ROW()-2)*5-2+COLUMN()-2,1)=0,"",INDEX($A:$A,(ROW()-2)*5-2+COLUMN()-2,1))

Then remove the following line from the code.

Range("A" & i).Resize(5).Clear