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