transfer of data between workbooks

Hi

Try this instead

Sub steffen()

Dim fileToOpen
Dim wb As Workbook

Set wb = ActiveWorkbook

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

End Sub