Macro laten herhalen voor onderliggende cel

[Heijntje]

Goedemiddag,
Ik heb een simpele macro die ik wil laten herhalen voor de onderliggende cellen. Wie kan mij helpen???

Ik heb nu:

Range("A2").Select
Selection.Copy
Sheets("berekening").Select
Range("B2").Select
ActiveSheet.Paste
Range("B16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Invoer").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

In A2 staat het eerste getal, de uitkomst komt in B2. Dit wil ik ook voor A3, A4, etc. De macro kan stoppen aan het einde van de lijst, het aantal waarden in de lijst kan verschillen.

Alvast bedankt!

Groeten Maarten

 

[Roncancio]

Sub Macro()
Dim lAR As Long
    With Worksheets("Invoer")
        lAR = .Range("A2").End(xlDown).Row
        Worksheets("Berekening").Range("B2:B" & lAR).Value = .Range("A2:A" & lAR).Value
    End With
End Sub

Met vriendelijke groet,


Roncancio

 

[Heijntje]

Ha Roncancio,
Hartelijk dank voor je snelle reactie! Hoe moet mijn volledige formule er dan uit komen te zien? Hij geeft nu nog niet het gewenste resultaat namelijk.
Groeten Maarten

 

[Roncancio]

Ha Roncancio,
Hartelijk dank voor je snelle reactie! Hoe moet mijn volledige formule er dan uit komen te zien? Hij geeft nu nog niet het gewenste resultaat namelijk.
Groeten Maarten

Dit is de volledige code!
Welke resultaten krijg je te zien?

Met vriendelijke groet,


Roncancio

 

[Heijntje]

Hiermee wordt de rij A2 t/m A51 gekopieerd en geplakt in een cel op het tweede tabblad.
Ik heb de sheet in de bijlage toegevoegd.
Ben benieuwd!

 

[Warme bakkertje]

Zoals ik de vraag begrijp moet onderstaande voldoen

Sub tst()
With Sheets("Invoer")
    For Each cl In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
        [Berekening!B2] = cl.Value
        cl.Offset(, 1) = [Berekening!B16].Value
    Next
End With
End Sub

 

[Heijntje]

Hij werkt! Beide hartelijk dank voor de genomen moeite!