NoSparks

Column "A
1 aaaa
2 blank
3 bbbb
4 blank
5 comma
7 cccc
6 blank
8 comma
9 dddd
10 eeee

Column "B"
1 aaaa
2 bbbb
3 cccc
4 dddd
5 eeee

I receive data in a vertical configuration (column "A"). However the data shows up in an inconsistent manner because the number of blank spaces separating the desired data varies. In addition, there are commas randomly included in the column "A". What I am wanting to do is to transfer the data in column "A" to column "B" so that each category of data (aaaa, bbbb, cccc, dddd,eeee) will reside in a constant address. What you have provided me so far does the job,.

However, I mistakenly specified to delete the "entire row" where blanks occurred instead of just deleting the "cell "where the blank occurred. I also neglected to mention where the commas occur that I want to those cells to be deleted as well.

In addition to the info you have provided,
Range("A1", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlBlanks).EntireRow.D elete

if I just wanted to delete the blank cells, to would I change "EntireRow.Delete" ? And to what would I change (xlBlanks) to get rid of the commas?