Hi Everybody,
I am looking for code to copy the contents of a range of cells to an equal cell range on another sheet, and do this while the original cel is not empty.
Example:
Sheets("Country_1999")
Look through column A:A
While Not IsEmpty(ActiveCell)
Copy contents from Row containing ActiveCell (A:AK) to destination Sheets("DestinationSheet").Same Row
ActiveCell.Offset(1,0).Select
Wend
How can I do this?
Thanks a lot for your help!
Erwin
I am looking for code to copy the contents of a range of cells to an equal cell range on another sheet, and do this while the original cel is not empty.
Example:
Sheets("Country_1999")
Look through column A:A
While Not IsEmpty(ActiveCell)
Copy contents from Row containing ActiveCell (A:AK) to destination Sheets("DestinationSheet").Same Row
ActiveCell.Offset(1,0).Select
Wend
How can I do this?
Thanks a lot for your help!
Erwin