All you have to do is figure out which columns in PasteSheet get copied to columns H:M on 13 Program UX ... and then copy this line
changing the ranges as appropriate..Range("M2:M" & LastRow).SpecialCells(xlCellTypeVisible).Copy dst.Range("G6")
I give up trying to squeeze the information out of you.