VBA Kopieren - Fehler 438

Sub MonatKopieren()
'Dim i As Integer
'noch uninteressant, ist für spätere Schleife gedacht
If Sheets("Auswertung").Range("B3") = Sheets("Historie").Cells(1, 2).Value Then
'in "Auswertung" werden Daten eines Monats geladen, diese sollen in der "Historie"  _
archiviert werden - deswegen wird geschaut,
'ob es zu diesem Monat (aktuell nur auf einen Monat verwiesen, später dann mit Variablen  _
und Schleife auf alle) bereits Daten gibt
If Sheets("Historie").Cells(3, 2).Value = "" Then
'gibt es noch keine Daten, sollen die aktuellen aus der Auswertung kopiert werden
Application.CutCopyMode = False
With Worksheets("Auswertung")
.Range(.Cells(6, 2), .Cells(15, 4)).Copy
End With
Worksheets("Historie").Cells(3, 2).Paste
'hier kommt der "Laufzeitfehler 438"
Else
End If
Else
End If
End Sub