Help with re-coding Macro to SPEED it up - Excel 2007

L

luckyajr

Board Regular
Joined
Mar 21, 2011
Messages
96
Hi ALL,

Thanks in advance for checking this thread out. I have not much experience at all with VBA codes, but I am working on one now for a spreadsheet I have. I know I have not coded it to run as fast as it could and should. I am sure it is very inefficient and was hoping someone would be willing to examine it for inefficiencies and/or recode it for me so Excel can process it faster. Thank you very much, I really appreciate any help you can provide!!

Here is the CODE:

Sub RunSimulations()
'
' RunSimulations Macro
'
' Keyboard Shortcut: Ctrl+r
'
Sheets("SIMULATIONS").Select
Range("B6").Select
Selection.Copy
Range("B7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B7:B10006")
Range("B7:B10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C6").Select
Application.CutCopyMode = False
Selection.Copy
Range("C7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C7:C10006")
Range("C7:C10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Range("D7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("D7:D10006")
Range("D7:D10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E6").Select
Application.CutCopyMode = False
Selection.Copy
Range("E7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E7:E10006")
Range("E7:E10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F6").Select
Application.CutCopyMode = False
Selection.Copy
Range("F7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("F7:F10006")
Range("F7:F10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G6").Select
Application.CutCopyMode = False
Selection.Copy
Range("G7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G7:G10006")
Range("G7:G10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H6").Select
Application.CutCopyMode = False
Selection.Copy
Range("H7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("H7:H10006")
Range("H7:H10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I6").Select
Application.CutCopyMode = False
Selection.Copy
Range("I7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("I7:I10006")
Range("I7:I10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J6").Select
Application.CutCopyMode = False
Selection.Copy
Range("J7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("J7:J10006")
Range("J7:J10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K6").Select
Application.CutCopyMode = False
Selection.Copy
Range("K7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("K7:K10006")
Range("K7:K10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L6").Select
Application.CutCopyMode = False
Selection.Copy
Range("L7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("L7:L10006")
Range("L7:L10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M6").Select
Application.CutCopyMode = False
Selection.Copy
Range("M7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("M7:M10006")
Range("M7:M10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N6").Select
Application.CutCopyMode = False
Selection.Copy
Range("N7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("N7:N10006")
Range("N7:N10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O6").Select
Application.CutCopyMode = False
Selection.Copy
Range("O7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("O7:O10006")
Range("O7:O10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P6").Select
Application.CutCopyMode = False
Selection.Copy
Range("P7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("P7:P10006")
Range("P7:P10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("Q7:Q10006")
Range("Q7:Q10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R6").Select
Application.CutCopyMode = False
Selection.Copy
Range("R7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("R7:R10006")
Range("R7:R10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("S6").Select
Application.CutCopyMode = False
Selection.Copy
Range("S7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("S7:S10006")
Range("S7:S10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("T6").Select
Application.CutCopyMode = False
Selection.Copy
Range("T7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("T7:T10006")
Range("T7:T10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U6").Select
Application.CutCopyMode = False
Selection.Copy
Range("U7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("U7:U10006")
Range("U7:U10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("V6").Select
Application.CutCopyMode = False
Selection.Copy
Range("V7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("V7:V10006")
Range("V7:V10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("W6").Select
Application.CutCopyMode = False
Selection.Copy
Range("W7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("W7:W10006")
Range("W7:W10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("X6").Select
Application.CutCopyMode = False
Selection.Copy
Range("X7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("X7:X10006")
Range("X7:X10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Y6").Select
Application.CutCopyMode = False
Selection.Copy
Range("Y7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("Y7:Y10006")
Range("Y7:Y10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Z6").Select
Application.CutCopyMode = False
Selection.Copy
Range("Z7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("Z7:Z10006")
Range("Z7:Z10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AA6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AA7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AA7:AA10006")
Range("AA7:AA10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AB6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AB7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AB7:AB10006")
Range("AB7:AB10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AC7:AC10006")
Range("AC7:AC10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AD6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AD7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AD7:AD10006")
Range("AD7:AD10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AE6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AE7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AE7:AE10006")
Range("AE7:AE10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AF6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AF7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AF7:AF10006")
Range("AF7:AF10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AG6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AG7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AG7:AG10006")
Range("AG7:AG10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AH6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AH7:AH10006")
Range("AH7:AH10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AI6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AI7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AI7:AI10006")
Range("AI7:AI10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AJ6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AJ7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AJ7:AJ10006")
Range("AJ7:AJ10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AK6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AK7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AK7:AK10006")
Range("AK7:AK10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AL6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AL7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AL7:AL10006")
Range("AL7:AL10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AM6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AM7:AM10006")
Range("AM7:AM10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AN6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AN7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AN7:AN10006")
Range("AN7:AN10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AO6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AO7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AO7:AO10006")
Range("AO7:AO10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AP6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AP7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AP7:AP10006")
Range("AP7:AP10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AQ6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AQ7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AQ7:AQ10006")
Range("AQ7:AQ10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AR6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AR7:AR10006")
Range("AR7:AR10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AS6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AS7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AS7:AS10006")
Range("AS7:AS10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AT6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AT7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AT7:AT10006")
Range("AT7:AT10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AU6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AU7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AU7:AU10006")
Range("AU7:AU10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AV6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AV7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AV7:AV10006")
Range("AV7:AV10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AW6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AW7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AW7:AW10006")
Range("AW7:AW10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AX6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AX7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AX7:AX10006")
Range("AX7:AX10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AY6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AY7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AY7:AY10006")
Range("AY7:AY10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AZ6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AZ7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AZ7:AZ10006")
Range("AZ7:AZ10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BA6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BA7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BA7:BA10006")
Range("BA7:BA10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BB6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BB7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BB7:BB10006")
Range("BB7:BB10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BC6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BC7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BC7:BC10006")
Range("BC7:BC10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BD6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BD7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BD7:BD10006")
Range("BD7:BD10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BE6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BE7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BE7:BE10006")
Range("BE7:BE10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BF6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BF7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BF7:BF10006")
Range("BF7:BF10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BG6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BG7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BG7:BG10006")
Range("BG7:BG10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BH6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BH7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BH7:BH10006")
Range("BH7:BH10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BI6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BI7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BI7:BI10006")
Range("BI7:BI10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BJ6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BJ7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BJ7:BJ10006")
Range("BJ7:BJ10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BK6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BK7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BK7:BK10006")
Range("BK7:BK10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BL6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BL7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BL7:BL10006")
Range("BL7:BL10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BM6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BM7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BM7:BM10006")
Range("BM7:BM10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BN6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BN7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BN7:BN10006")
Range("BN7:BN10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BO6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BO7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BO7:BO10006")
Range("BO7:BO10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BP6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BP7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BP7:BP10006")
Range("BP7:BP10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BQ6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BQ7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BQ7:BQ10006")
Range("BQ7:BQ10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BR6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BR7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BR7:BR10006")
Range("BR7:BR10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BS6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BS7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BS7:BS10006")
Range("BS7:BS10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BT6").Select
Application.CutCopyMode = False
Selection.Copy
Range("BT7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BT7:BT10006")
Range("BT7:BT10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BS5").Select
Application.CutCopyMode = False
End Sub
 

Excel Facts

Save Often
If you start asking yourself if now is a good time to save your Excel workbook, the answer is Yes
Sort by date Sort by votes
For example replace

Code: 
Range("B6").Select
Selection.Copy
Range("B7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B7:B10006")
Range("B7:B10006").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

with


Code: 
Range("B6").Copy Destination:=Range("B7")
Range("B7").AutoFill Destination:=Range("B7:B10006")
With Range("B7:B10006")
    .Value = .Value
End With
 
Upvote 0
Maybe try:

Code: 
Sub Test()
    With Sheets("SIMULATIONS")
        .Range("B6:BT6").Copy .Range("B7:B10006")
        .Range("B7:BT10006").Copy
        .Range("B7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End With
End Sub
 
Upvote 0
Put this at the beginning of your code
Code: 
Application.ScreenUpdating = False

And this at the end
Code: 
Application.ScreenUpdating = True
 
Upvote 0
Wow thank you very much for the quick replies! VoG for your suggestion would I then recopy it throughout the rest of the code by replacing the cells to the corresponding columns (Due to the fact I am using multiple columns, etc.) Look forward to hearing back. Thanks!!
 
Upvote 0
Thank you! Andrew's version helps it run much much faster. It still takes about 3 minutes to complete the entire calculation process though. Does that seem like that would be accurate?
 
Upvote 0
Try

Code: 
Sub Test()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    With Sheets("SIMULATIONS")
        .Range("B6:BT6").Copy .Range("B7:B10006")
        .Range("B7:BT10006").Copy
        .Range("B7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Solved
Need help with macro Dynamic Range??
Replies
6
Views
166
pennbowl
P
P
  • Solved
Counter in For Each loop
Replies
2
Views
186
Possum17
P
A
  • Question
Macro to update list to last row on another sheet copy source from multiple sheets
Replies
0
Views
299
Azamamir
A
P
  • Question
Help with Vba Code
Replies
3
Views
149
Coyotex3
C
P
  • Solved
Recorded Macro Ammendments
Replies
3
Views
335
Joe4
Joe4

Forum statistics

Threads
1,214,646
Messages
6,120,717
Members
448,985
Latest member
chocbudda

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top