transfer of data between workbooks

Ahh, i got the wrong way round

Try this

Sub steffen()

Dim fileToOpen
Dim wb As Workbook

Set wb = ActiveWorkbook

Workbooks.Open Application.GetOpenFilename
ActiveWorkbook.Sheets(1).Range("A4:G" & ActiveWorkbook.Sheets(1).UsedRange.Rows.Count).Copy Destination:=wb.Sheets(2).Range("A4")
wb.Sheets(2).Activate

End Sub