select last blank cell instead of last empty cell in a column

[alexcrofut]

Hello everyone,

I am new to VBA but I have been trying to get a macro to copy and paste values updated daily below existing avlues in an archive page.

My problem is that the cells in the copied column (about 100 rows worth) contain formulas which spit out a value or a blank if there were less than 100 orders (varies everyday), selecting non empty cells still selects these blank cells with formulas and copies them over so that I end up with huge spaces in my archives
Heres the code i've been using so far
(I've learned from looking at recorded macros so I apologise for the poor quality of the coding)

'copying from this sheet
 Sheets("Sheet 1").Select
    Range("K2").Select
    Range(Selection, Selection.End(xlDown)).Select
     Application.CutCopyMode = False
    Selection.Copy
' pasting as a value here
    Sheets("archive").Select
    Range("E1").Select
  Range(Selection, Selection.End(xlDown)).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

What can I do to either copy only cells where the formula spits out a non-blank or paste after last non-blank cell (either one)?
thank you!!!!