MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Copy Range of cells


Posted by Bob Hutchison on February 13, 2001 2:23 AM

I need to copy the same range of cells in one column in Worksheet #1 every day to worksheet #2 but I want the information I copy each day into Worksheet #2 to be copied into the first blank cell after the information I have copied from the previous day. Hence to create an automatic expanding range of data.


Posted by Faster on February 13, 2001 7:32 AM

Sub CopyRange()
'this should do it

'select Sheet1
Sheets("Sheet1").Select
'range from Sheet1
Range("B1:B7").Select
Selection.Copy

'select Sheet2
Sheets("Sheet2").Select

'select the first cell in the list
Range("A1").Select

'find first blank in column
Do While ActiveCell.Formula <> ""
Selection.Offset(1, 0).Select
Loop

ActiveSheet.Paste
Application.CutCopyMode = False

End Sub