Selection not working
Posted on 2011-02-18
I have a piece of code to Count rows through Col A and Select Columsn A:M and Copy the selection but it dopes not seem to work, does it look okay?
With Sheets("Outstanding Items Report-1")
r = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A1:M" & r).Copy Workbooks("Asset Services Outstanding Stock Items.xls").Sheets("Outstanding Items Report-1").Cells(Rows.Count, "E").End(xlUp).Offset(1, -4)