Blank Cells Vertical

There are a number of different ways you can remove blank cells from a list

1) Using GoTo Special Dialog Box

2) Using Find (lookin 'values')

3) Using a Formula / Array Formula
Formulas > Array Formulas > Removing Blanks

4) Using a User Defined Function
NONBLANKVALUES - Returns a cell range with all the blanks removed.

5) Using VBA Code
Range("A1").specialcells(xlcelltypeblanks).delete

Single Column - Manually

Highlight the cells containing all the cells, including the blank cells.
(Home tab, Editing Group)(Find & Select - GoTo Special) or (F5, Special).
This will display the "Go To Special" dialog box.
Select Blanks and press OK.
This will select all the cells that are blank.

Then remove the entire rows for all the selected cells.
(Home Tab, Cells Group)(Delete > Delete Cells, Entire Row).
Right mouse click and press Delete.
This will display the Delete dialog box.
Choose "Shift Cells Up" and press OK.
The Undo (Ctrl + Z) can be used if you want to put the blank cells back.

Single Column - Formula (alongside)

A formula can be used if you want to keep the original list.
This formula will display the list (without the blanks) alongside the original list (using the same rows).

=IFERROR(INDEX(B$2:B$12,SMALL(IF(B$2:B$12<>"",ROW(B$2:B$12)-ROW(B$2)+1,""),ROWS(B$2:B2))),"") 

Place this formula in cell "D2" and press Enter.
Drag this cell down to cell "D12".

Single Column - Formula (underneath)

This formula will display the list (without the blanks) underneath the original list (using the same column).

=IFERROR(INDEX(B$2:B$12,SMALL(IF(B$2:B$12<>"",ROW(B$2:B$12)-ROW(B$2)+1,""),ROWS(B$14:B14))),"") 

Place this formula in cell "B14" and press Enter.
Drag this cell down to cell "B24".

Single Row - Manually

Highlight the cells containing all the cells, including the blank cells.
(Home tab, Editing Group)(Find & Select - GoTo Special) or (F5, Special).
This will display the "Go To Special" dialog box.
Select Blanks and press OK.
This will select all the cells that are blank.

Then remove the entire columns for all the selected cells.
(Home Tab, Cells Group)(Delete > Delete Cells, Entire Column).
Right mouse click and press Delete.
This will display the Delete dialog box.
Choose "Shift Cells Up" and press OK.
The Undo (Ctrl + Z) can be used if you want to put the blank cells back.

Single Row - Formula (underneath)

This formula will display the list (without the blanks) underneath the original list (using the same column).

=IFERROR(INDEX($B2:$K2,SMALL(IF($B2:$K2<>"",COLUMN($B2:$K2)-COLUMN($B2)+1,""),COLUMNS($B4:B4))),"") 

Place this formula in cell "B4" and press Enter.
Drag this cell across to cell "K4".

Single Row - Formula (alongside)

A formula can be used if you want to keep the original list.
This formula will display the list (without the blanks) alongside the original list (using the same rows).

=IFERROR(INDEX($B2:$K2,SMALL(IF($B2:$K2<>"",COLUMN($B2:$K2)-COLUMN($B2)+1,""),COLUMNS($M2:M2))),"") 

Place this formula in cell "M2" and press Enter.
Drag this cell across to cell "S2".

VBA User Defined Function

NONBLANKVALUES - Returns a cell range with all the blanks removed.