How to Copy a Row fixed number of times

[lsleicestershire]

I am trying to prapare a spreadsheet model to teach loan amortization to my Year 12.

A spread sheet contains following

Years 10

Term Payment Interets Principal Balnace
0
1


I need a code which takes the value of Years (i.e. 10) multiply it by 12 and copy row containg 1 and paste it that many times under the row containig 1.

Please note that row containg 1 has a formula and we need to copy that formula.

Please help me.

 

[Joe4]

Welcome to the Board!

Try something like this:

Sub MyCopy()
 
    Dim i As Long
    Dim myYears As Long
    Dim myNewLines As Long
    
'   Ask how many years to copy
    myYears = InputBox("How many years to amortize?")
    
'   If numeric, multiply by 12 and copy down that many rows
    If IsNumeric(myYears) Then
        myNewLines = myYears * 12
        Rows("1:1").Copy
        Rows("2:" & myNewLines + 1).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Else
        MsgBox "You have not entered in a valid number of years."
    End If
            
End Sub