Copy column without blanks (not copy paste and skip blanks)

[tweek]

Hi, Can anyone help me with this?

I need to copy column B to Column E.

In column B are numbers that are generated from a database and there are blank spaces between them. I would like to copy them to Column E but leave out the blank spaces.

Can this be done with any formula , trick or VBA ?

Thank you very much. Tweek.

 

[SteveO59L]

Copy, Paste, then Sort

Columns("B:B").Select
Selection.Copy
Columns("E:E").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal