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
