I have a Keyboard macro that looks like below,
the macro unmerges a spreadsheet and then copies each column from A through J ending in row 10000,
The spreadsheet that is does this function may be have different number or data rows, from 1 row to any number.

I would like to change the macro so that once it reaches a row starting with column A and sees that there is no data in cells A through J on that
row, the copy command would stop. I would then be able to paste onto another spreadsheet rows that have data in them.

Cells.Select
With Selection
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A9:J10000").Select
Selection.Copy
End Sub

Thanks for any help in adjusting the above macro
Cardinal 2