hvor virker denne kode ikke? Ranget er tomt....!!

arhhh!!! Hvorfor fanden virker denne kode ikke?

koden til at "sette" indputområde markerer det rigtige område, men den siger at der ikke er noget i ranget...!!


Sub kopiereformler()
Dim Kodeområde, indputområde As Range

With Workbooks("Til kristian.xls").Worksheets("ark1")
    Set Kodeområde = Range(.Range("P2"), .Range("p2").End(xlToRight))
End With
   
With Workbooks("Til kristian.xls").Worksheets("ark1")
    Set Inputkodeområde = Range(.Range("E65000").End(xlUp).Offset(0, 3), .Range("c65000").End(xlUp))
End With
   
    Kodeområde.Select
    Selection.Copy
   
   
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
   
    With Workbooks("Til kristian.xls").Worksheets("ark1")
    Set Inputkodeområde = Range(.Range("F65000").End(xlUp).Offset(1, 0), .Range("E65000").End(xlUp).Offset(0, 3))
    End With

    Range(Range("F65000").End(xlUp).Offset(1, 0), Range("E65000").End(xlUp).Offset(0, 3)).Select
    Selection.AutoFill Destination:=indputområde, Type:=xlFillDefault


End Sub