Copying cells a set no. of times with a referance to the num

[drag-driver]

have code which works for a set integer value want code which works for an integer value which is found in a cell Ie the program counts the number of cells present stores this in a cell then decides how many times to copy another cells data down with referance contained in the counted cell.

[JohnG]

Hope this is the sort of thing you were after

Sub Test()
Dim CopyTimes As Integer
Dim CopyLoop As Integer

CopyTimes = Worksheets("sheet1").Range("A1").Value
If CopyTimes <= 1 Then Exit Sub
For CopyLoop = 1 To CopyTimes
'assume A2 has the data, B2 is the place to start storeing
Worksheets("sheet1").Range("B" & CopyLoop + 1).Value = Worksheets("sheet1").Range("A2").Value
Next CopyLoop

End Sub

On 2002-02-20 04:53, drag-driver wrote:
have code which works for a set integer value want code which works for an integer value which is found in a cell Ie the program counts the number of cells present stores this in a cell then decides how many times to copy another cells data down with referance contained in the counted cell.