vba - Fill Down until Last Empty Row or Next Filled Cell -

i know how code in order fill down column, have few conditions can't find out how implement.

i want fill down until last row (that contains value @ all) or next cell within column contains information.

the data looks this

a        1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10 b        1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10 c        1  2  3  4  5  6  7  8  9  10 d        1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10 e        1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10          1  2  3  4  5  6  7  8  9  10 

so can see, code needs recognize how stop @ b (and not copy on it) when copying down column. code needs stop @ last row values in when dragging down e.

i've been trying figure out no avail, please help!!!

previous code:

yes have code, slow , figure out more efficient. 'sub copydown()     sheets("raw").range("a1").select     = 1 100         activecell.copy         activecell.offset(1, 0).select         if activecell.value = vbnullstring             activecell.paste         end if     next end sub' 

this 1 simple, if example dataset used (filling down existing values blanks in column a.)

    sub macrofillareas()      each area in columns("a:a").specialcells(xlcelltypeblanks)         if area.cells.row <= activesheet.usedrange.rows.count             area.cells = range(area.address).offset(-1, 0).value         end if     next area 

(code modified)

   end sub