macro to copy only rows and columns by values

[ed.ayers315]

Hello All,

I have a macro that copies a range that is set, then pastes these values at the bottom of a table.

This would be ok but even if the copied area does not have values, it expands my table with empty rows.

The next time this macro is used it paste the new information under the empty rows.

Can the macro be set up to be variable from 1 to 4 rows based on the value in the first cell in each row and only copy 1, 2, 3, and or 4 rows to paste at the end of my table?

Sub COMPILE_HTST_HISTORY()
'
' COMPILE_HTST_HISTORY Macro
'
' Keyboard Shortcut: Ctrl+h
'
    ActiveWindow.SmallScroll ToRight:=7
    ActiveWindow.SmallScroll Down:=15
    Range("N29:ba32").Select
    Selection.Copy
    Sheets("HT_Accumulative_History").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("HTST_SEP_EVAP").Select
End Sub