bereik aanpassen naar variabele

[stefano]

Ik tel het aantal rijen in een document met onderstaande code:

Dim rij As Integer
ActiveCell.End(xlDown).Select
rij = ActiveCell.Row

Nu wil ik een copy/paste uitvoeren van 1 rij naar het aantal rijen zoals hierboven bepaald met de variabele 'rij'.

In de vorige code moet dus het bereik 7:100 aangepast worden naar 7:rij

    Rows("6:6").Select
    Selection.Copy
    [COLOR="#FF0000"]Rows("7:100").Select[/COLOR]    ActiveSheet.Paste
    Range("J6").Select

Hoe kan ik dat ?

 

[Thoralf]

Kijk eens of het volgende werkt:

Rows("7:"&rij)