Formule kopieren en plaatsen in een rij onder de laatste

[PeterPaint]

Hallo allemaal,

Ik heb onderstaande macro in excel om naar de laatst ingevulde cel van een kolom te gaan. Vervolgens moet ik in de rij daaronder de formule van cel J5 plakken in kolom J. En vervolgens moet de in deze rij de cel van kolom B geselecteerd worden. Met onderstaande code wordt echter telkens rij 37 gevuld. Heeft iemand een idee hoe ik dit moet aanpassen.

Alvast bedankt.

Gr. PeterPaint

Sub Macro9()
'
' Macro9 Macro
'

'
    Range("J5").Select
    Selection.Copy
    Range("H5").Select
    Selection.End(xlDown).Select
    Range("J37").Select
    ActiveSheet.Paste
    Range("B37").Select
End Sub

 

[Elsendoorn2134]

Peter,

Wijzig je macro eens in:

Sub Macro9()
'
' Macro9 Macro
'

'
    Range("J5").Copy Destination:=Range("H5").End(xlDown).Offset(1, 2)
    Range("B" & Range("H5").End(xlDown).Row + 1).Select
End Sub

Veel Succes.

 

[PeterPaint]

Top! dankjewel :thumb: