Formules doortrekken met VBA

[oceanrace]

Hallo,
De volgende code trekt formules door tot rij 200.
Graag zou ik 200 vervangen door een variabele wat in cel B5 van het werkblad staat.
Kan dat?

Sub Matrixdoortrekken()
Application.DisplayStatusBar = True
Application.StatusBar = "Even geduld a.u.b.: Bezig met zoeken...."
Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Range("A7:Y7").AutoFill Destination:=Range("A7:Y[B]200[/B]"), Type:=xlFillDefault
    Range("N4").Select
    ActiveSheet.Protect AllowFiltering:=True
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

 

[Haaren101]

Variabele = cells(5,2). value OF Variabele = Cells("B5").value

DezeRange= "A7:Y" & Variable

... Destination:=Range(DezeRange) ...

Ron

 

[oceanrace]

Hallo Ron,

Het is gelukt!
Bedankt voor je hulp. :thumb: