Sub rr()
Dim lRow As Long, lCol As Long, lColS2 As Long
Dim iR As Long, iC As Long

lRow = Sheets(1).Cells.SpecialCells(xlLastCell).Row
lCol = Sheets(1).Cells.SpecialCells(xlLastCell).Column
lColS2 = 1
    For iR = 1 To lRow
        For iC = 1 To lCol
            If Sheets(1).Cells(iR, iC) <> "" Then
                Sheets(2).Cells(iR, lColS2) = Sheets(1).Cells(iR, iC)
                lColS2 = lColS2 + 1
            End If
        Next iC
    lColS2 = 1
    Next iR
End Sub