Use macro to copy groups of ceels excluding blank rows

I am new to this forum and am teaching myself VBA (I know I need to do a course)
If anyone can assist me on this mater I would be appreciative

I have a group of cells in 10 rows ("a1:j60) in my code below. .
I copy them to another worksheet
I then sort the destination worksheet to have the most recent entries at the top.
The problem is that when I do not have 10 rows of data I am getting the blank lines copied to my target spreadsheet.
The blank lines are not necessarily in order (i.e. rows 3, 5 and 8 might be blank on one update... then rows 2,& 3 on the next update).

Is there a simple solution to not copy the blank cells or do I have to run a macro 10 times with an if command for each row?
Any assistance will be greatly appreciated.

Here is my code:

Please Login or Register  to view this content.

Thanks in advance