Transpose Macro

Hi dsavage
Try this code

Option Explicit
Sub Rows_To_Columns()
    Dim Rng As Range
    Dim lr As Long
    Dim AClr As Long
    Dim i As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Set Rng = Range("B3:B" & lr)
    For i = 1 To lr
        Rng(i).Resize(1, 24).Copy
        AClr = Range("AC" & Rows.Count).End(xlUp).Offset(1, 0).Row
        Range("AC" & AClr).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                False, Transpose:=True
        Application.CutCopyMode = False
    Next i
End Sub