MrExcel Publishing
Your One Stop for Excel Tips & Solutions

selecting ranges in copy / paste macro


Posted by Don R. on August 14, 2001 7:23 AM

How do I correct a copy / paste macro when I use the "end" key to select the range. When I record the macro it fixes the copy range based on the size of the range when I recorded the macro (5th line of the macro needs to have a variable - I think).

ActiveCell.Range("A1:B1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1:B5").Select
ActiveSheet.Paste


Posted by jimmy on August 14, 2001 7:58 PM


You can reduce this to one line of code :-

Range(ActiveCell, ActiveCell.Offset(0, 1)).Copy Range(ActiveCell.Offset(1, 0), ActiveCell.End(xlDown).Offset(0, 1))