Take An Action On Only Cells With Content Within A Range

I am trying to write a macro that goes down column A, and whereever there is cell content, it will copy the row of the table to another spreadsheet.

The problem I am encounting is that there are gaps in the table, for example:

WKJ9900KBKBusiness Banking: Cheque CollectedWBJ90978JKCommercial Banking Corporate Heritage: Cheque CollectedUHN98920HJCorporate: Cheque CollectedUCC1201DBKCredit Cards: Cheque Collected

WHH8989JKBusiness Banking: Cheque Collected Unidentified / ReconciliationWKU8987GHCommercial Banking Corporate Heritage: Cheque Collected Unidentified / Reconciliation

WKJ9900KBKBusiness Banking: Cheque CollectedWBJ90978JKCommercial Banking Corporate Heritage: Cheque CollectedUHN98920HJCorporate: Cheque CollectedUCC1201DBKCredit Cards: Cheque Collected.

The gaps are of varying length. So far I have been playing with the

Range("a1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
'do copy action
ActiveCell.Offset(1, 0).Select
Loop
of course, this stops when it reaches a blank cell.

I think the best way to do it is if I set a range, and then get excel to go down the column and copy whereever there is cell content.