How do you optimize the process of gathering data; getting away from .Select

[pawest]

Hi VBA people,
I know that many advanced VBA users advocate getting away from using selects. It seems there are many work arounds. However, I have a project where a .select might be best. I would like to get the user community's feedback on how optimize and improve this process:

' Copy the file's data
Workbooks.Open fileName:=fileSpec 'here I reference the fileSpec variable which calls a csv file's location
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
        
' Import the data 
Windows("DataFile.xlsm").Activate
Sheets("Data").Select 
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                 :=False, Transpose:=False

Thanks!

 

[VoG]

Perhaps

ActiveSheet.UsedRange.Copy
        
' Import the data
Workbooks("DataFile.xlsm").Sheets("Data").Range("A1").PasteSpecial Paste:=xlPasteValues

 

[pawest]

VoG,
Thanks for your feedback. To provide more background on this project, I have one main data analysis file and I pull about 10 tabs of information from 10 different csv files. Would you still recommend the ActiveSheet.UsedRange.Copy? Sounds like I should just do a workbooks.open, then activate the file, then do the ActiveSheet.UsedRange.Copy?

 

[VoG]

If you open a csv file then that will become the active workbook and the sheet that you want to copy from will already be the active sheet.

 

[pawest]

Sounds good! Thanks!