Hallo Sepp, bitte nocheinmal um Hilfe

Sub kopieren()
Dim wks As Worksheet
Dim wksS As Worksheet
Dim rng As Range
Dim rngX As Range
Dim lnge As Long
Dim intC As Integer
Set wksS = Sheets("Sammelblatt") 'Hier den Namen der Sammeltabelle
lnge = wksS.Range("A65536").End(xlUp).Row + 1   'erste freie Zeile
For Each wks In ThisWorkbook.Sheets
If wks.Name <> "Sammelblatt" Then 'Hier den Namen der Sammeltabelle
Set rng = wks.Range("B2:B8, B12:B18, D2:D8, D12:D18, G2:G8, G12:G18, K2:K8, K12:K18 ")
intC = 1
For Each rngX In rng
rngX.Copy wksS.Cells(lnge, intC)
intC = intC + 1
If intC > 7 Then
intC = 1
lnge = lnge + 1
End If
Next
End If
Next
End Sub