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

Format cells as date
Select range and press Ctrl+Shift+3 to format cells as date. (Shift 3 is the # sign which sort of looks like a small calendar).
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

Dazzawm
  • Solved
Change Range To Recorded Macro
Replies
3
Views
169
Alex Blakenburg
A
K
  • Question Question
Increasing row before the macro runs again
Replies
1
Views
229
kbk
K
willow1985
  • Solved
VBA Run-time error 91 - Object variable or With block variable not set when trying to refresh data/Sleep
Replies
4
Views
390
willow1985
willow1985
D
  • Solved
extract to another workbook and save using desktop path
2
Replies
12
Views
205
jolivanes
jolivanes
C
  • Question Question
Please help clean up my convoluted VBA code. It seems very redundant and repetitive.
Replies
1
Views
439
myall_blues
myall_blues

Forum statistics

Threads
1,224,599
Messages
6,179,831
Members
452,947
Latest member
Gerry_F

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