Selecting & Copying a Changing Range

D

DNewton

Hi All,
I have data that I import on a weekly basis that has a variable numbe
of rows, same number of columns that I need a macro to find the end o
the new range, select the whole range and copy it. The data will alway
start in cell A1 and may be from 3 to 10 rows in length, extending t
column K.

Any suggestions?

Thanks,
Don Newto
 
B

Bob Phillips

Set myRange =
Range("A1").Resize(Cells(Rows.Count,"A"),End(xlUp).Row,numCols)

substitute your value for n umber of columns for numcols

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
T

Tom Ogilvy

Range("A1").CurrentRegion.Copy Destination:= _
Workbooks("Data").Worksheets("Sheet3").Cells(rows.count,1).End(xlup)(2)
 
Top