formule doortrekken tot laatste actieve rij

[madmad]

L.s.,

Wat ik graag wil is het volgende:
in de eerste kolom staat een reeks getallen, in de tweede kolom wil ik een formule plaatsen die doorgetrokken wordt tot de laatste actieve rij. Soms zijn dit 10 rijen, soms zijn het 50.000 rijen. Hoe kan ik ervoor zorgen dat de formule wordt doorgetrokken tot de laatst actieve rij?


Sub Macro1()
'
' Macro1 Macro
'

'
Selection.AutoFill Destination:=Range("B1:B4")
Range("B1:B4").Select
End Sub

Waarbij voor B4 dus "laatst actieve rij" komt te staan....

Bij voorbaat dank voor alle reacties.

Maurice

 

[VenA]

Probeer het zo eens.

Range("B4").AutoFill Destination:=Range("B4:B" & Cells(Rows.Count, 1).End(xlUp).Row)

 

[snb]

Cel met formule selecteren.
Ga met de cursor naar de rechterbenedenhoek van de geselecteerde cel
De cursor verandert nu in een kruisje.
Dubbelklik nu op dit kruisje.

 

[madmad]

Bij:

Sub Macro4()
'
' Macro4 Macro
'

'
Range("B4").AutoFill Destination:=Range("B4:B" & Cells(Rows.Count, 1).End(xlUp).Row)
End Sub

krijg ik als foutmelding:
Fout 1004
Methode AutoFill van klasse Range is mislukt.

 

[madmad]

Cel met formule selecteren.
Ga met de cursor naar de rechterbenedenhoek van de geselecteerde cel
De cursor verandert nu in een kruisje.
Dubbelklik nu op dit kruisje.

Dat snap ik maar als ik dit doe bij het opnmene van een macro en deze macro uitvoer gaat het mis als er meer rijen in het bestand staan als op het moment van het opnemen van de macro.

 

[VenA]

Gebruik svp code tags. Kan je even het bestandje plaatsen waarin je deze foutmelding krijgt en hoe je het toepast? Het lukt mij niet om deze foutmelding te reproduceren.

 

[snb]

Sub M_snb()
    ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset(, -1).End(xlDown).Offset(, 1))
End Sub

 

[madmad]

Sub M_snb()
    ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset(, -1).End(xlDown).Offset(, 1))
End Sub

Dank je wel! Dit doet precies wat ik wil!