Fehler im Array

Sub Übertrag()
' Übertrag Makro
Dim wks As Worksheet, arrSheets
arrSheets = Sheets(Array("TB1", "TB2", "TB4", "TB7", "TB10"))
For Each wks In arrSheets
With wks
If .Cells(2, 1)  "" Then
.Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Copy
Sheets("Gesamt").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValues
.Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).ClearContents
End If
End With
Next
End Sub