On Jun 2, 7:04*am, deemo85 wrote:
Hi,

I have made a macro that runs another macro and copies the results to a new
column thus creating a list. I want to make the macro run over a large
number of cycles and create a large list without me having to type in the
same command over and over. How can I do this? I have pasted the macro below:

Sub Macro8()
'
' Macro8 Macro
' Macro recorded 2/06/2008 by deemo
'

'
Application.Run "Iterate2"
Range("B1").Select
Selection.Copy
Range("N8").Select
ActiveSheet.Paste
Range("F1").Select
Selection.Copy
Range("O8").Select
ActiveSheet.Paste
Application.Run "Iterate2"
Range("B1").Select
Selection.Copy
Range("N9").Select
ActiveSheet.Paste
Range("F1").Select
Selection.Copy
Range("O9").Select
ActiveSheet.Paste
Application.Run "Iterate2"
Range("B1").Select
Selection.Copy
Range("N10").Select
ActiveSheet.Paste
Range("F1").Select
Selection.Copy
Range("O10").Select
ActiveSheet.Paste
End Sub

Thanks!

No need for all those selects. Put your calls back in, and make the
necessary range changes.

Sub this()
Range("B1").Copy Destination:=Range("N8:N45")
Range("F1").Copy Destination:=Range("O8:O45")
End Sub