PasteSpecial statt copy Range geht nicht

Sub Leerzellen_auffuellen()
Dim L As Long
Dim Bereich As Range
For L = 1 To 10000
If WorksheetFunction.CountIf(Range(Cells(L, 6), Cells(L, 8)), "") = 3 Then _
Range(Cells(L, 1), Cells(L, 2)).Copy Range(Cells(L, 6), Cells(L, 7))
Next
Range("A2").Select
End Sub