Code Condensing

[Aaron]

Is there a way to condense the following code?

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

What I am doing is downloading data into a text file. Then opening the text file and copying the text file range into an Excel file.

Thanks for your help.

 

[Oaktree]

You could get rid of the selects...

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

 

[Aaron]

Thanks OakTree, worked like a charm. Since I am relatively new to VB where would you suggest I go to leard how to condense redundant code?

 

[Oaktree]

Try the "recommended add-ins and links" here:

http://www.mrexcel.com/board2/viewtopic.php?t=131224

Or, search google for free VBA tutorial--there should be oodles and oodles of hits returned.