aus geschlossenen tabellen einlesen

hallo excels,
folgenden code habe ich im archiv gefunden und ein wenig angepasst.
der liest aber erst ab zeile 2 die daten ein.
außerdem erhalte ich eine fehlermeldung zeile xxx kann nicht eingelesen werden.
ich fummel schon seid gesten an diesem problem kann aber den fehler einfach nicht finden.
hilfe wäre toll.

Private Sub Worksheet_Activate()
Dim shQuelle As Worksheet, shZiel As Worksheet
Dim Rng As Range
Dim intRow%, nRow%, nColumn%

Application.ScreenUpdating = False
Workbooks.Open "D:\kvasy_abfragen\lagerbestaende3.SLK", False
Set shQuelle = Workbooks("Lagerbestaende3.Slk").Worksheets("Lagerbestaende3")
Set shZiel = Workbooks("Lagergesamtbestand.xls").Worksheets("lager3")
On Error Resume Next
    
    Cells.Select
    Selection.Delete Shift:=xlUp

intRow = shZiel.Cells.Find("*", shZiel.Range("A1"), , , _
xlByRows, xlPrevious).Row
If Err > 0 Then intRow = 1
On Error GoTo 0
nRow = shQuelle.UsedRange.Rows.Count
nColumn = shQuelle.UsedRange.Columns.Count
Set Rng = shQuelle.Range(shQuelle.Cells(2, 1), shQuelle.Cells _
(nRow, nColumn))
Rng.Copy shZiel.Range("a" & intRow + 1)

ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True

End Sub

gruss
peter