autofill met variabelen

[nootie]

Hoi,

Ik zou graag een waarde willen doorvoeren naar beneden. Dit kan ik doen door autofill toe te passen. Maar ik werk wel met variabelen dus, de autofill is de ene keer voor zoveel aantal kollommen en op een bepaalde plaats en de volgende keer kan dit totaal anders zijn.
Nu ik heb al op internet gezocht en er staan veel oplossingen, maar de ene oplossing geeft een foutmelding en de andere blijft maar doorvoeren naar beneden.

Selection.AutoFill Destination:=Range("G76:G80"), Type:=xlFillDefault

ik wil bijvoorbeeld dat hij gaat doorvoeren van de cells(i+7,2) tot aan de cells(i+7+aantal,2).

Thx

 

[Wigi]

Sub wigi()

    Const i As Long = 10
    Const aantal As Integer = 4
    
    Cells(i + 7, 2).AutoFill Destination:=Range(Cells(i + 7, 2), Cells(i + 7 + aantal, 2)), Type:=xlFillDefault

End Sub

Wigi

 

[nootie]

Ok bedankt