transfer of data between workbooks

Hi,

This should do

Sub steffen()

Dim fileToOpen
Dim wb As Workbook

Set wb = ActiveWorkbook

fileToOpen = Application.GetOpenFilename
If fileToOpen = False Then
    MsgBox ("No file choosen")
Else
    wb.Sheets(1).Range("A4:G" & wb.Sheets(1).UsedRange.Rows.Count).Copy Destination:=ActiveWorkbook.Sheets(2).Range("A4")
End If

End Sub