Trying to copy from CSV file - Run-time error '1004'

[DanGK1]

Hi

I am attempting to open a csv file and then copy data from it to my main workbook. I can open the file fine but when I get to the bit of code that requests to copy the data, I get Run-time error '1004'; Application-defined or object-defined error and I cannot work out why. As far as Excel appears to be concerned, the csv file is the active workbook.

Sub select_report()
Dim MyFile As String
ChDir "C:\Users\******\Downloads"
MyFile = Application.GetOpenFilename("Files (*.csv),*.csv", , "Select Report File")
Workbooks.Open (MyFile)
ActiveSheet.Name = "report"
' check the active workbook
   MsgBox ActiveWorkbook.Name, vbInformation, "Workbook Name"
With Sheets("report")
    .Range("A2:U" & Lastrow).Copy
End With
ActiveWorkbook.Close
With Sheets("SFData")
    .Range("A2").Paste
End With
End Sub

Any advice or suggestions please?

Thanks

 

[Solari]

You haven't defined LastRow I think.

[COLOR=#00007F][FONT='inherit']Dim[/FONT][/COLOR][COLOR=#3D3D3D][FONT='inherit'] LastRow [/FONT][/COLOR][COLOR=#00007F][FONT='inherit']As[/FONT][/COLOR][COLOR=#00007F][FONT='inherit']Long[/FONT][/COLOR]

Then you have to set it to use it...

 

[DanGK1]

thanks, that was not quite it, but pointed me to the right place

Lastrow = Range("A:U").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

 

[Solari]

thanks, that was not quite it, but pointed me to the right place

Lastrow = Range("A:U").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

No, like I said you have to give it a value. Like you then did. Great!