Werte löschen aber nur in bestimmter Tabelle

Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
Dim intCol As Integer, lngRow As Long
'--------Stunden_Transponieren-----------
With Sheets("Hirtenlehner R.")
If Not IsNumeric(.Range("A7")) Or .Range("A7") = 0 Then Exit Sub
If .Range("A7") > 6 Then
intCol = ((.Range("A7") - 6) * 9) + 53
lngRow = 42
Else
intCol = (.Range("A7") * 9) + 53
lngRow = 6
End If
End With
With Sheets("Schichtplan")
.Range(.Cells(lngRow, intCol), .Cells(lngRow + 30, intCol)).Copy
End With
Sheets("Hirtenlehner R.").Range("N10").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.ScreenUpdating = True
End Sub