Copy data from one workbook into another

[drop05]

Hi i am trying to see if there is a way to copy data from one workbook to anther with the user being able to select the file to grab from and the sheet is sheet 1 and the only sheet in that workbook.
The range of the data to look and grab from is from A3 to the last used row in column A but goes to G. So A3: G last row used in A. Then paste the data into a table in the workbook wanting to bring the data over, the table is called "User_Report" the tab is called "User Report" and has headers so the data would go from A2 to G2 and down based on the copied data

 

[mumps]

Try:

Sub CopyRange()
    Application.ScreenUpdating = False
    Dim OpenFileName As String, srcWS As Worksheet
    Set srcWS = ThisWorkbook.Sheets("Sheet1")
    OpenFileName = Application.GetOpenFilename("Excel files (*.xls*), *.xls*")
    If OpenFileName = "False" Then Exit Sub
    srcWS.Range("A3", srcWS.Range("G" & Rows.Count).End(xlUp)).Copy Sheets("User Report").Range("A2")
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
End Sub

 

[drop05]

Try:

Sub CopyRange()
    Application.ScreenUpdating = False
    Dim OpenFileName As String, srcWS As Worksheet
    Set srcWS = ThisWorkbook.Sheets("Sheet1")
    OpenFileName = Application.GetOpenFilename("Excel files (*.xls*), *.xls*")
    If OpenFileName = "False" Then Exit Sub
    srcWS.Range("A3", srcWS.Range("G" & Rows.Count).End(xlUp)).Copy Sheets("User Report").Range("A2")
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
End Sub

HI thank you for this, quick questions, why is there set srcWS set to this workbook? Trying to get it from an outside workbook but that outside workbook the sheet name is sheet 1

 

[mumps]

Thisworkbook refers to the workbook containing the macro and the range that you want to copy.