Rows To Columns Or Columns To Row

I wrote a short VBA to change known data from rows to column and columns to row.

Data is like this:

Hello Hello Hello
Hello Hello Hello

I can chang it to Hello .... Hello
or
Hello..
.
.
.Hello
I need to figure out a way to do this when data is not fixed - ie:

Hello Hello Hello Hello Hello
Hello Hello Hello
Hello Hello Hello
Hello

or

Hello Hello Hello Hello Hello Hello
Hello Hello Hello
Hello Hello Hello

Can you offer suggestions on what commands I can use to find the begining and ending of data, so that no matter what format it is in I can change it to one row or one column?