Multiple data points randomly placed into one column (down the line for each separate point)

[StevenSamori]

Hi! Do you happen to know how to take all data points from every single row and column and copy and paste it into a single line (one long column) so I can export all the emails?

I have two images I upload (I did it manually but have 6,000 cells with email addresses and I need them in a straight line so I can upload to a CRM

 

[kvsrinivasamurthy]

Input Sheet1, output Sheet2.
Try this code

Sub ListInColumn()
Dim Cel As Range, X As Long
For Each Cel In Sheets("Sheet1").UsedRange
If Cel <> "" Then X = X + 1: Sheets("Sheet2").Range("A" & X).Value = Cel
Next Cel
End Sub