Copy & Past Excluding Empty Cells

[drmingle]

Here is my situation:

I have sheet1 "Population Names"
I have sheet2 "Results"

I need items in the range "E5:E21" of "Population Names" to copy to column "B" of "Results".


PROBLEM(s):

• There are blank cells in "E5:E21" of "Population Names" which I don't want to copy over.
• I would like to paste below any data which is already present (I don't want to overwrite anything) in column "B".

Sub AlmostThere()
'
' AlmostThere Macro
'
'
    Sheets("Population Names").Select
    Range("E5:E21").Selection.Copy
    Sheets("Results").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub

 

[Reddog94]

To exclude the blank cells from your post, change the last line of your code to read xlNone, SkipBlanks:=True, Transpose:=False.

I'm not sure about how to find the first blank cell in your destination column, but try this post: http://www.mrexcel.com/forum/showthread.php?t=15062