Macro om gegevens te kopiëren tot de laatste rij

[Trientje]

Dag allemaal,
Ik heb volgend probleem. Ik heb een reeks gegevens welke steeds verandert van grootte. (aantal rijen). Nu is het de bedoeling dat hij een formule zet voor alle rijen in een bepaald kolom.
vb ik heb 100 rijen dan moet hij in een volgende kolom 100x de formule kopiëren.
bij het vernieuwen van de gegevens zijn er maar 50 rijen . 50 x formule noteren etc.
nu heb ik in mijn macro vaste waarden staan maar dit moeten eigenlijk denk ik RC verwijzingen worden?
In onderstaand vb gaan we dus naar het einde van kolom T om dan vanaf die rij in kolom Y een formule te zetten tot de 2e rij.
Ik weet dat het iets heel stoms is maar kan het me niet meer herinneren.
Sorry voor de stomme vraag.

Sub Macro3()
'
' Macro3 Macro
'

'
    Range("Y3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("Y2").Select
    Selection.Copy
    Range("T2").Select
    Selection.End(xlDown).Select
    Range("Y281").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
End Sub

 

[JEC.]

Zo? Anders even vb bestand plaatsen

Sub j()
Range("Y2:Y" & Cells(Rows.Count, 20).End(xlUp).Row).FillDown
End Sub

 

[VenA]

Gebruik een tabel. Dan heb je helemaal geen macro nodig.

 

[Trientje]

probleem is dat het externe gegevens zijn en er geen tabel van kan maken, maar het is opgelost.
Heb het gevonden.

Sub CopyFormula()
'
' Kopieert de formule over het nieuwe aantal rijen
'

'
    Range("Y3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("Y2").Select
    Selection.Copy
    Range("T2").Select
    Selection.End(xlDown).Offset(0, 5).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

 

[snb]

Natuurlijk kun je daarvan in Excel wel een tabel maken.
Dat jij niet weet hoe, is een ander verhaal

Jouw 'oplossing' is geen oplossing.

Sub M_snb()
  Cells(2, 25).AutoFill Range(Cells(2, 25), Cells(2, 25).End(-4121))
End Sub

of

Sub M_snb()
   Range(Cells(2, 25), Cells(2, 25).End(-4121)).FillDown
End Sub