copying data from a filtered list with missing data

hi, I have a filtered list of data from a bigger sample and I want to copy the data from the first occurrence of the filtered data to the end of the filtered data in the column to somewhere else in the sheet using vba code. however, some of the data is blank so when I manually do cntrl-end-down to get all the data I may have to do it a few times to get to the very last row of data. my data starts in col D and I want to copy it to column CJ in the same sheet. thx.

thx! this seems to work correctly on a different data set but for some reason doesn't work quite right on mine maybe because it has protected range names. i'll change the original data and use this code. thx for your help.