kopieren en plakken zonder selecteren

[jofred]

Ik probeer een formule te kopieren vanuit een cel (A5) en te plakken in een aantal andere cellen (A5 t/m A42943).
Dit wil ik doen zonder de cellen te selecteren, omdat deze routine deel uitmaakt van een groter geheel met verschillende werkbladen en bestanden.
Echter loop ik tegen een foutmelding aan : Methode Range van object _Worksheet is mislukt.

Ik heb al een aantal aanpassingen geprobeerd, maar niets lijkt te helpen.
Hieronder heb ik een deel van de code geplakt. De variabele ws is een gedefinieerd werkblad.

With ws
    .Columns(1).Insert Shift:=xlToRight
    .Cells(4, 1).Value = "Sleutel"
    .Cells(5, 1).FormulaR1C1 = _
            "=IF(ISBLANK(RC[7])+ISBLANK(RC[8])+ISBLANK(RC[6])+ISBLANK(RC[8])=0,RC[7]&RC[8]&RC[6]&RC[1],""ZZ"")"
    .Cells(5, 1).Copy
    .Range(Cells(5, 1), Cells(42943, 1)).PasteSpecial xlPasteFormulas
End With

Wie helpt?

 

[HSV]

With ws
    .Columns(1).Insert Shift:=xlToRight
    .Cells(4, 1).Value = "Sleutel"
    .Cells(5, 1).FormulaR1C1 = _
            "=IF(ISBLANK(RC[7])+ISBLANK(RC[8])+ISBLANK(RC[6])+ISBLANK(RC[8])=0,RC[7]&RC[8]&RC[6]&RC[1],""ZZ"")"
   [COLOR="#FF0000"] .Cells(5, 1).AutoFill Range("A5:A42943"), xlFillCopy[/COLOR]
 End With

 

[jofred]

HSV

Dank voor je antwoord,
Ik kon daar verder mee. Er zat echter nog een klein foutje in.
Voor de volledigheid nog werkende code

With ws
    .Columns(1).Insert Shift:=xlToRight
    .Cells(4, 1).Value = "Sleutel"
    .Cells(5, 1).FormulaR1C1 = _
            "=IF(ISBLANK(RC[7])+ISBLANK(RC[8])+ISBLANK(RC[6])+ISBLANK(RC[8])=0,RC[7]&RC[8]&RC[6]&RC[1],""ZZ"")"
    .Cells(5, 1).AutoFill [B][U]ws.[/U][/B]Range("A5:A42943"), xlFillCopy
 End With

 

[HSV]

Of gewoon een punt voor Range(.....

.Cells(5, 1).AutoFill [COLOR="#FF0000"][B].[/B][/COLOR]Range("A5:A42943"), xlFillCopy