none wrote:
Please help with my lame attempt to have the user enter how many times a
row needs to be repeated. Here's the scenario: I have a spreadsheet
with weeks of the year for each year and need each one repeated a
certain number of times.


Sub SOCal()
'
' SOCal Macro

Range("G2").Select
StartVal = Val(InputBox("Enter how many lines per order: "))
Set currentCell = Worksheets("Sheet1").Range("G2")
Do While Not IsEmpty(currentCell)
For counter = 1 To (StartVal - 1)
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Paste
ActiveCell.Offset(1, 0).Select
Next counter
Loop

End Sub


Thanks for any help.

Mike


Here's the scenario: I have a spreadsheet with weeks of the year for
each row and need each one repeated a certain number of times.