How to extract non-blank cells from a column & copy paste them into another column?

[oceanspace]

I'm trying to get a column of raw data, remove the blank cells, and have them be outputted to another column.


Is there a simple way to do this (whether using VBA or using a formula?) Intuitively, I think there's a way to do this using array formulas but am unclear. Happy to hear any thoughts.


To be clear, there are multiple columns in which this scenario occurs. Therefore, I'd like a formula or VBA code that takes a given column, and outputs into another selected column (not just a simple filter out blanks or sort out blanks solution)


Thanks in advance!


Sample Excel Output - Album on Imgur

 

[My Aswer Is This]

Assuming you mean copy to first empty row in column "E" try this:

Sub Filled_Cells()
'Modified 7-25-17 11:23 AM EDT
Application.ScreenUpdating = False
Dim i As Long
Dim c As Range
Dim Lastrow As Long
Dim Lastrowa As Long
Sheets("A").Activate
Lastrow = Cells(Rows.Count, "F").End(xlUp).Row
Lastrowa = Sheets("B").Cells(Rows.Count, "E").End(xlUp).Row + 1
    For Each c In Sheets("A").Range("F10:F" & Lastrow)
        If c.Value <> "" Then Sheets("B").Cells(Lastrowa, "E").Value = c.Value: Lastrowa = Lastrowa + 1
    Next
Application.ScreenUpdating = True
End Sub