Fehler im Code

ich bin schon am verzweifeln,
habe ein riesen Makro geschrieben, und nun streikt er an einer stelle, hier ist dieser ausschnitt:

For Each works In Worksheets
Sheets(works.Name).Select
Range("A5").FormulaLocal = "='[Zeiterfassungs-Stammblatt.xls]Stammblatt'!A5"
Range("A5").Copy
Range("A6", Selection.End(xlDown)).Offset(-6, 0).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False

Range("B5").FormulaLocal = "='[Zeiterfassungs-Stammblatt.xls]Stammblatt'!B5"
Range("B5").Copy
Range("B6", Selection.End(xlDown)).Offset(-6, 0).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False

Range("A1").Select
Next works

Und zwar streikt er immer bei dieser Zeile:
Range("A6", Selection.End(xlDown)).Offset(-6, 0).Select
und dann nochmal bei der nächstgleichen
Range("B6", Selection.End(xlDown)).Offset(-6, 0).Select

Bitte helft mir

Gruss

Steffen D