Assuming you don't have formulas forcing cells to display as blanks, replace this
Code:
Range("A9:J10000").Select
Selection.Copy
with
Code:
For i = 9 To 10001
If Cells(i, "A") = "" Then
If Application.CountA(Range("A" & i & ":J" & i)) = 0 Then
Exit For
End If
End If
Next i
Range("A9:J" & i - 1).Copy