Transpose vertical data looping through entire column

Sub test()
    Dim i As Long
    For i = 1 To Columns(1).SpecialCells(2).Areas.Count
        Columns(1).SpecialCells(2).Areas(i).Copy
        Cells(i, 3).PasteSpecial Transpose:=True
    Next
End Sub