Copying row equal to amount entered in cell

[Frank_N]

Hi,

Hope this won't be too confusing. I want to enter a number, for example 5 in an 'input' cell and that will copy a row which has formulas in some cells the same number of times as entered in the 'input' cell.

For example I enter 5 in cell A1 and that would copy/add 5 rows with the info/formulas from rows A3 - I3

Hope that makes sense.

Thanks in advance for any help
Frank

 

[Tuelor]

Whilst I am sure someone will comeback with a more efficient way. How about assigning the following to a button?

Private Sub CommandButton1_Click()
    
    Sheets("Sheet1").Range("A3:I3").Select
    Sheets("Sheet1").Range("A3:I3").Copy
    
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    
    Sheets("Sheet1").Range(Selection.Address & ":I" & Selection.Row + Sheets("Sheet1").Range("A1").Value).Select
    ActiveSheet.Paste
        
End Sub

...it seems to get the job done

...but, of cause, depending on you spreadsheet may need a little tweaking.

D

 

[Frank_N]

Thanks for the help Tuelor but I can't get it to work... I keep getting an error.

Application-defined or object-defined error

Thanks again for your time and help
Frank