Hi guys
I have a large loop (10000) worth - and this is sometimes crashing and the time it does work takes forever! (My computer is pretty good)
Here is the code -
Wondering if anyone had a better way to preform the task?
Thanks inadvance
Sub Sim()
ActiveSheet.Range("B302").Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(17, 0)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
'
' Sim Macro
'
Let x = 0
Do While x < 10000
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(17, 0)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
x = x + 1
Loop
End Sub
Bookmarks