Code to copy data does not copy last row in source data

I have the following code which copies the data from the source data


I need to amend the code so that I copies all data from A1 to Col j up to the last row containing data in Col A. Currently if there is Data in Col A in the last row but no data in the same row in Col J, then the data is copies up the one row above it

I have attached source sample data and highlighted the row not being copied

Kindly amend my code so that all rows will be copied up to the last row containing Data in Col A


I need this section of the code amended

Please Login or Register  to view this content.

Full Code

Please Login or Register  to view this content.

Your assistance is most appreciated

Please try

Please Login or Register  to view this content.

J4 is blank so End(xlUp) select J3