Convert text from multiple rows to one column

[smide]

Hello.

In rows 2:8 (cells C2:G8) I have a text (all those cells contain formulas).

I need formula (or VBA) to covert text from those rows into a single column (column A), without blank cells from C2:G8 range.
Some rows could contain all blank cells.

example.

Sheet1 (before formula/VBA)

	A​	B​	C​	D​	E​	F​	G​
1​
2​			Toronto	Munich
3​			Leipzig
4​
5​			Calgary	Melbourne	Detroit
6​
7​			Paris	Perth
8​			Vienna	Florence	Turin	Geneva	Bern

Sheet1 (after formula/VBA)

	A​	B​	C​	D​	E​	F​	G​
1	Results​
2	Toronto		Toronto	Munich
3	Munich		Leipzig
4	Leipzig
5	Calgary		Calgary	Melbourne	Detroit
6	Melbourne
7	Detroit		Paris	Perth
8	Paris		Vienna	Florence	Turin	Geneva	Bern
9	Perth
10	Vienna
11	Florence
12	Turin
13	Geneva
14	Bern

 

[iggydarsa]

Sub MergeMe()
    counter = 2
    For Each cl In Range("C2:G8")
        If Trim(cl) <> "" Then
            Range("A" & counter).Value = cl.Value
            counter = counter + 1
        End If
    Next cl
End Sub