Copy data w/o selecting a range

[KGee]

I was wondering if these commands could be rewritten to a single line and avoid having to select the range before copying the data. I need everything in the sheet from the second row on starting with the first column. I've tried a few variations but having found anything that works.

Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy

 

[VoG]

Try

Range("A2", Range("A" & Rows.Count).End(xlUp)).Copy

 

[Jonmo1]

Generaly speaking, to remove Select statements from code...

find anything that says Selection, and replace that with whatever was previously selected.

So

Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy

becomes

Range(Range("A2"), ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy

becomes

Range(Range("A2"), ActiveCell.SpecialCells(xlLastCell)).Copy


You can (and should) also replace ActiveCell with whatever cell was selected

so it becomes

Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Copy


Hope that helps.

 

[KGee]

Thanks for the tips guys. I saved this in my reference file for future use. I should have remembered "rows.count" as you helped me out with that code in the past VOG. I did manage to get it working like so:

Sheets("Data").Range("A2", ActiveCell.SpecialCells(xlLastCell)).Copy

I was trying to clean up some code and remove select statements and also eliminate having to switch back and forth between sheets.

Thanks again!