Daten in mehrere Arbeitsblätter kopieren

Sub datensatz_verschieben()
Dim R As Long
R = Me.Shapes(Application.Caller).TopLeftCell.Row
Dim arrWochentage As Variant
arrWochentage = Array("Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag")
Select Case Left(Cells(R, 13).Text, 1)
Case 1: kopieren arrWochentage, "D" & R
End Select
End Sub
Private Sub kopieren(Stock As Variant, Zellen As String)
Dim lngLZ As Long, Ws As Worksheet, intI As Integer
If IsArray(Stock) Then
For intI = LBound(Stock) To UBound(Stock)
Set Ws = Sheets(Stock(intI))
lngLZ = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row + 1
Sheets("Übersicht").Range(Zellen).Copy Ws.Cells(lngLZ, 1)
Next
Else
Set Ws = Sheets(Stock)
lngLZ = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row + 1
Sheets("Übersicht").Range(Zellen).Copy Ws.Cells(lngLZ, 1)
End If
Set Ws = Nothing
End Sub

Nun erhalte ich aber immer die Fehlermeldung "Fehler beim Kompilieren - Unzulässige Verwendung des Schlüsselworts Me"
Kann mir da jemand weiter helfen?
Danke schon jetzt.
Gruss
Ben