macro to copy changing range to next blank cell in another sheet

Hi

Assuming that underneath the next blank cell after A24 there are no other cells with data then the usual way is to use

Range("A" & Rows.Count).End(xlUp).Cells(2,1)

And as an aside re copying your filtered range, don't forget you can always use code like

Formula:

Range("A1").CurrentRegion.Resize(,1).SpecialCells(xlCellTypeVisible)

But better still use a dynamic range name that results in a single column. e.g

Range("MyDynamicRangeName").SpecialCells(xlCellTypeVisible)