Flyt data VBA

... og samtidigt med, at jeg kan skrive en nå rente ind et hvis antal gange neden under efterfølgende.

VBAen til knappen kunne være:

Sub rente()

Dim last_row As Integer
Dim start_row As Integer
Dim strInterest As String

last_row = Cells(Rows.Count, 1).End(xlUp).Row
start_row = 2

For r = 2 To last_row

    strInterest = Cells(r, 2).Value
    For i = start_row To start_row + Cells(r, 1).Value - 1
    Cells(start_row, 4).Value = strInterest
    start_row = i + 1
    Next i
Next r

End Sub

Hej.
Tak fo svar!!

Kan man lave det sådan, at når jeg har afspillet makroen første gang, så næste gang jeg afspiller den, så sætter den dataene ind i første ledige celle i kolonne D, så den altså ikke sletter nogle renter jeg en gang tidligere har sat id?

Vi kan lave en lille tilføjelse i starten af vbaen så den fjerner hvad der lå i kolonne D udover overskriften:

range(cells(2,4),cells(15000,4).select
selection.clearcontents