copy column of data, remove blank cells

i recorded the following macro to copy a column of data and identify/delete blanks cells.

however, rather than select the entire column (in this case column A), can someone explain to me how to incorporate the End(xlUp) function to determine the end cell address? also, any other tips to "clean-up" the script?

Please Login or Register  to view this content.

thanks mike

i feel a little silly because a) i found that code shortly after i posted the question, and b) the cells are not blank since they contain "" as placed by a formula.

so now i'm using the following formula, yet can't determine how to post the results to another sheet (say sheet 1) and start from cell A3:

Please Login or Register  to view this content.

thanks mikerickson - that works great.