Hello,
I have the below macro that places alot of formulas into a WS. It works as it is, but it is very slow. Is there something that can be done to make this execute quicker?
I have the below macro that places alot of formulas into a WS. It works as it is, but it is very slow. Is there something that can be done to make this execute quicker?
Code:
Sub SetFormulas()Sheets("OpenOrder Data").Activate
GetOpenSummaryReport
Dim LastRow As Long
LastRow = Range("F" & Rows.Count).End(xlUp).row
Range("L2:BA" & LastRow).ClearContents
Range("A2:BA" & LastRow).Select
ClearBordersOpenOrder
'Shipping Info
Range("L2").Value = "=IFERROR(LOOKUP(2,1/(RC[2]:RC[41]<>""""),RC[2]:RC[41]),"""")"
Range("L2").Copy Range("L2:L" & LastRow)
'1
Range("N2").Value = "=IFERROR(INDEX(Data!C[-9],MATCH(RC6,Data!C,0)) & "" - "" &INDEX(Data!C[-8],MATCH(RC6,Data!C,0))& "" - "" &INDEX(Data!C[1],MATCH(RC6,Data!C,0))& "" - "" &INDEX(Data!C[-11],MATCH(RC6,Data!C,0)),"""")"
Range("N2").Copy Range("N2:N" & LastRow)
'2
Range("O2").Value = "=IFERROR(INDEX(Data!C[6],MATCH(RC6,Data!C[15],0)) & "" - "" &INDEX(Data!C[7],MATCH(RC6,Data!C[15],0))& "" - "" &INDEX(Data!R[-1]C[16],MATCH(RC6,Data!C[15],0))& "" - "" &INDEX(Data!C[4],MATCH(RC6,Data!C[15],0)),"""")"
Range("O2").Copy Range("O2:O" & LastRow)
'3
Range("P2").Value = "=IFERROR(INDEX(Data!C[21],MATCH(RC6,Data!C[30],0)) & "" - "" &INDEX(Data!C[22],MATCH(RC6,Data!C[30],0))& "" - "" &INDEX(Data!C[31],MATCH(RC6,Data!C[30],0))& "" - "" &INDEX(Data!C[19],MATCH(RC6,Data!C[30],0)),"""")"
Range("P2").Copy Range("P2:P" & LastRow)
'4
Range("Q2").Value = "=IFERROR(INDEX(Data!C[36],MATCH(RC6,Data!C[45],0)) & "" - "" &INDEX(Data!C[37],MATCH(RC6,Data!C[45],0))& "" - "" &INDEX(Data!C[46],MATCH(RC6,Data!C[45],0))& "" - "" &INDEX(Data!C[34],MATCH(RC6,Data!C[45],0)),"""")"
Range("Q2").Copy Range("Q2:Q" & LastRow)
'5
Range("R2").Value = "=IFERROR(INDEX(Data!C[51],MATCH(RC6,Data!C[60],0)) & "" - "" &INDEX(Data!C[52],MATCH(RC6,Data!C[60],0))& "" - "" &INDEX(Data!C[61],MATCH(RC6,Data!C[60],0))& "" - "" &INDEX(Data!C[49],MATCH(RC6,Data!C[60],0)),"""")"
Range("R2").Copy Range("R2:R" & LastRow)
'6
Range("S2").Value = "=IFERROR(INDEX(Data!C[66],MATCH(RC6,Data!C[75],0)) & "" - "" &INDEX(Data!C[67],MATCH(RC6,Data!C[75],0))& "" - "" &INDEX(Data!C[76],MATCH(RC6,Data!C[75],0))& "" - "" &INDEX(Data!C[64],MATCH(RC6,Data!C[75],0)),"""")"
Range("S2").Copy Range("S2:S" & LastRow)
'7
Range("T2").Value = "=IFERROR(INDEX(Data!C[81],MATCH(RC6,Data!C[90],0)) & "" - "" &INDEX(Data!C[82],MATCH(RC6,Data!C[90],0))& "" - "" &INDEX(Data!C[91],MATCH(RC6,Data!C[90],0))& "" - "" &INDEX(Data!C[79],MATCH(RC6,Data!C[90],0)),"""")"
Range("T2").Copy Range("T2:T" & LastRow)
'8
Range("U2").Value = "=IFERROR(INDEX(Data!C[96],MATCH(RC6,Data!C[105],0)) & "" - "" &INDEX(Data!C[97],MATCH(RC6,Data!C[105],0))& "" - "" &INDEX(Data!C[106],MATCH(RC6,Data!C[105],0))& "" - "" &INDEX(Data!C[94],MATCH(RC6,Data!C[105],0)),"""")"
Range("U2").Copy Range("U2:U" & LastRow)
'9
Range("V2").Value = "=IFERROR(INDEX(Data!C[111],MATCH(RC6,Data!C[120],0)) & "" - "" &INDEX(Data!C[112],MATCH(RC6,Data!C[120],0))& "" - "" &INDEX(Data!C[121],MATCH(RC6,Data!C[120],0))& "" - "" &INDEX(Data!C[109],MATCH(RC6,Data!C[120],0)),"""")"
Range("V2").Copy Range("V2:V" & LastRow)
'10
Range("W2").Value = "=IFERROR(INDEX(Data!C[126],MATCH(RC6,Data!C[135],0)) & "" - "" &INDEX(Data!C[127],MATCH(RC6,Data!C[135],0))& "" - "" &INDEX(Data!C[136],MATCH(RC6,Data!C[135],0))& "" - "" &INDEX(Data!C[124],MATCH(RC6,Data!C[135],0)),"""")"
Range("W2").Copy Range("W2:W" & LastRow)
'11
Range("X2").Value = "=IFERROR(INDEX(Data!C[141],MATCH(RC6,Data!C[150],0)) & "" - "" &INDEX(Data!C[142],MATCH(RC6,Data!C[150],0))& "" - "" &INDEX(Data!C[151],MATCH(RC6,Data!C[150],0))& "" - "" &INDEX(Data!C[139],MATCH(RC6,Data!C[150],0)),"""")"
Range("X2").Copy Range("X2:X" & LastRow)
'12
Range("Y2").Value = "=IFERROR(INDEX(Data!C[156],MATCH(RC6,Data!C[165],0)) & "" - "" &INDEX(Data!C[157],MATCH(RC6,Data!C[165],0))& "" - "" &INDEX(Data!C[166],MATCH(RC6,Data!C[165],0))& "" - "" &INDEX(Data!C[154],MATCH(RC6,Data!C[165],0)),"""")"
Range("Y2").Copy Range("Y2:Y" & LastRow)
'13
Range("Z2").Value = "=IFERROR(INDEX(Data!C[171],MATCH(RC6,Data!C[180],0)) & "" - "" &INDEX(Data!C[172],MATCH(RC6,Data!C[180],0))& "" - "" &INDEX(Data!C[181],MATCH(RC6,Data!C[180],0))& "" - "" &INDEX(Data!C[169],MATCH(RC6,Data!C[180],0)),"""")"
Range("Z2").Copy Range("Z2:Z" & LastRow)
'14
Range("AA2").Value = "=IFERROR(INDEX(Data!C[186],MATCH(RC6,Data!C[195],0)) & "" - "" &INDEX(Data!C[187],MATCH(RC6,Data!C[195],0))& "" - "" &INDEX(Data!C[196],MATCH(RC6,Data!C[195],0))& "" - "" &INDEX(Data!C[184],MATCH(RC6,Data!C[195],0)),"""")"
Range("AA2").Copy Range("AA2:AA" & LastRow)
'15
Range("AB2").Value = "=IFERROR(INDEX(Data!C[201],MATCH(RC6,Data!C[210],0)) & "" - "" &INDEX(Data!C[202],MATCH(RC6,Data!C[210],0))& "" - "" &INDEX(Data!C[211],MATCH(RC6,Data!C[210],0))& "" - "" &INDEX(Data!C[199],MATCH(RC6,Data!C[210],0)),"""")"
Range("AB2").Copy Range("AB2:AB" & LastRow)
'16
Range("AC2").Value = "=IFERROR(INDEX(Data!C[216],MATCH(RC6,Data!C[227],0)) & "" - "" &INDEX(Data!C[217],MATCH(RC6,Data!C[227],0))& "" - "" &INDEX(Data!C[228],MATCH(RC6,Data!C[227],0))& "" - "" &INDEX(Data!C[214],MATCH(RC6,Data!C[227],0)),"""")"
Range("AC2").Copy Range("AC2:AC" & LastRow)
'17
Range("AD2").Value = "=IFERROR(INDEX(Data!C[216],MATCH(RC6,Data!C[225],0)) & "" - "" &INDEX(Data!C[217],MATCH(RC6,Data!C[225],0))& "" - "" &INDEX(Data!C[226],MATCH(RC6,Data!C[225],0))& "" - "" &INDEX(Data!C[214],MATCH(RC6,Data!C[225],0)),"""")"
Range("AD2").Copy Range("AD2:AD" & LastRow)
'18
Range("AE2").Value = "=IFERROR(INDEX(Data!C[231],MATCH(RC6,Data!C[240],0)) & "" - "" &INDEX(Data!C[232],MATCH(RC6,Data!C[240],0))& "" - "" &INDEX(Data!C[241],MATCH(RC6,Data!C[240],0))& "" - "" &INDEX(Data!C[229],MATCH(RC6,Data!C[240],0)),"""")"
Range("AE2").Copy Range("AE2:AE" & LastRow)
'19
Range("AF2").Value = "=IFERROR(INDEX(Data!C[246],MATCH(RC6,Data!C[255],0)) & "" - "" &INDEX(Data!C[247],MATCH(RC6,Data!C[255],0))& "" - "" &INDEX(Data!C[256],MATCH(RC6,Data!C[255],0))& "" - "" &INDEX(Data!C[244],MATCH(RC6,Data!C[255],0)),"""")"
Range("AF2").Copy Range("AF2:AD" & LastRow)
'20
Range("AG2").Value = "=IFERROR(INDEX(Data!C[261],MATCH(RC6,Data!C[270],0)) & "" - "" &INDEX(Data!C[262],MATCH(RC6,Data!C[270],0))& "" - "" &INDEX(Data!C[271],MATCH(RC6,Data!C[270],0))& "" - "" &INDEX(Data!C[259],MATCH(RC6,Data!C[270],0)),"""")"
Range("AG2").Copy Range("AG2:AG" & LastRow)
'21
Range("AH2").Value = "=IFERROR(INDEX(Data!C[276],MATCH(RC6,Data!C[285],0)) & "" - "" &INDEX(Data!C[277],MATCH(RC6,Data!C[285],0))& "" - "" &INDEX(Data!C[286],MATCH(RC6,Data!C[285],0))& "" - "" &INDEX(Data!C[274],MATCH(RC6,Data!C[285],0)),"""")"
Range("AH2").Copy Range("AH2:AH" & LastRow)
'22
Range("AI2").Value = "=IFERROR(INDEX(Data!C[306],MATCH(RC6,Data!C[315],0)) & "" - "" &INDEX(Data!C[307],MATCH(RC6,Data!C[315],0))& "" - "" &INDEX(Data!C[316],MATCH(RC6,Data!C[315],0))& "" - "" &INDEX(Data!C[304],MATCH(RC6,Data!C[315],0)),"""")"
Range("AI2").Copy Range("AI2:AI" & LastRow)
'23
Range("AJ2").Value = "=IFERROR(INDEX(Data!C[321],MATCH(RC6,Data!C[330],0)) & "" - "" &INDEX(Data!C[322],MATCH(RC6,Data!C[330],0))& "" - "" &INDEX(Data!C[331],MATCH(RC6,Data!C[330],0))& "" - "" &INDEX(Data!C[319],MATCH(RC6,Data!C[330],0)),"""")"
Range("AJ2").Copy Range("AJ2:AJ" & LastRow)
'24
Range("AK2").Value = "=IFERROR(INDEX(Data!C[336],MATCH(RC6,Data!C[345],0)) & "" - "" &INDEX(Data!C[337],MATCH(RC6,Data!C[345],0))& "" - "" &INDEX(Data!C[346],MATCH(RC6,Data!C[345],0))& "" - "" &INDEX(Data!C[334],MATCH(RC6,Data!C[345],0)),"""")"
Range("AK2").Copy Range("AK2:AK" & LastRow)
'25
Range("AL2").Value = "=IFERROR(INDEX(Data!C[351],MATCH(RC6,Data!C[360],0)) & "" - "" &INDEX(Data!C[352],MATCH(RC6,Data!C[360],0))& "" - "" &INDEX(Data!C[361],MATCH(RC6,Data!C[360],0))& "" - "" &INDEX(Data!C[349],MATCH(RC6,Data!C[360],0)),"""")"
Range("AL2").Copy Range("AL2:AL" & LastRow)
'26
Range("AM2").Value = "=IFERROR(INDEX(Data!C[366],MATCH(RC6,Data!C[375],0)) & "" - "" &INDEX(Data!C[367],MATCH(RC6,Data!C[375],0))& "" - "" &INDEX(Data!C[376],MATCH(RC6,Data!C[375],0))& "" - "" &INDEX(Data!C[364],MATCH(RC6,Data!C[375],0)),"""")"
Range("AM2").Copy Range("AM2:AM" & LastRow)
'27
Range("AN2").Value = "=IFERROR(INDEX(Data!C[381],MATCH(RC6,Data!C[390],0)) & "" - "" &INDEX(Data!C[382],MATCH(RC6,Data!C[390],0))& "" - "" &INDEX(Data!C[391],MATCH(RC6,Data!C[390],0))& "" - "" &INDEX(Data!C[379],MATCH(RC6,Data!C[390],0)),"""")"
Range("AN2").Copy Range("AN2:AN" & LastRow)
'28
Range("AO2").Value = "=IFERROR(INDEX(Data!C[412],MATCH(RC6,Data!C[421],0)) & "" - "" &INDEX(Data!C[413],MATCH(RC6,Data!C[421],0))& "" - "" &INDEX(Data!C[422],MATCH(RC6,Data!C[421],0))& "" - "" &INDEX(Data!C[410],MATCH(RC6,Data!C[421],0)),"""")"
Range("AO2").Copy Range("AO2:AO" & LastRow)
'29
Range("AP2").Value = "=IFERROR(INDEX(Data!C[427],MATCH(RC6,Data!C[436],0)) & "" - "" &INDEX(Data!C[428],MATCH(RC6,Data!C[436],0))& "" - "" &INDEX(Data!C[437],MATCH(RC6,Data!C[436],0))& "" - "" &INDEX(Data!C[425],MATCH(RC6,Data!C[436],0)),"""")"
Range("AP2").Copy Range("AP2:AP" & LastRow)
'30
Range("AQ2").Value = "=IFERROR(INDEX(Data!C[442],MATCH(RC6,Data!C[451],0)) & "" - "" &INDEX(Data!C[443],MATCH(RC6,Data!C[451],0))& "" - "" &INDEX(Data!C[452],MATCH(RC6,Data!C[451],0))& "" - "" &INDEX(Data!C[440],MATCH(RC6,Data!C[451],0)),"""")"
Range("AQ2").Copy Range("AQ2:AQ" & LastRow)
'31
Range("AR2").Value = "=IFERROR(INDEX(Data!C[457],MATCH(RC6,Data!C[466],0)) & "" - "" &INDEX(Data!C[458],MATCH(RC6,Data!C[466],0))& "" - "" &INDEX(Data!C[467],MATCH(RC6,Data!C[466],0))& "" - "" &INDEX(Data!C[455],MATCH(RC6,Data!C[466],0)),"""")"
Range("AR2").Copy Range("AR2:AR" & LastRow)
'32
Range("AS2").Value = "=IFERROR(INDEX(Data!C[472],MATCH(RC6,Data!C[481],0)) & "" - "" &INDEX(Data!C[473],MATCH(RC6,Data!C[481],0))& "" - "" &INDEX(Data!C[482],MATCH(RC6,Data!C[481],0))& "" - "" &INDEX(Data!C[470],MATCH(RC6,Data!C[481],0)),"""")"
Range("AS2").Copy Range("AS2:AS" & LastRow)
'33
Range("AT2").Value = "=IFERROR(INDEX(Data!C[487],MATCH(RC6,Data!C[496],0)) & "" - "" &INDEX(Data!C[488],MATCH(RC6,Data!C[496],0))& "" - "" &INDEX(Data!C[497],MATCH(RC6,Data!C[496],0))& "" - "" &INDEX(Data!C[485],MATCH(RC6,Data!C[496],0)),"""")"
Range("AT2").Copy Range("AT2:AT" & LastRow)
'34
Range("AU2").Value = "=IFERROR(INDEX(Data!C[502],MATCH(RC6,Data!C[511],0)) & "" - "" &INDEX(Data!C[503],MATCH(RC6,Data!C[511],0))& "" - "" &INDEX(Data!C[512],MATCH(RC6,Data!C[511],0))& "" - "" &INDEX(Data!C[500],MATCH(RC6,Data!C[511],0)),"""")"
Range("AU2").Copy Range("AU2:AU" & LastRow)
'35
Range("AV2").Value = "=IFERROR(INDEX(Data!C[517],MATCH(RC6,Data!C[526],0)) & "" - "" &INDEX(Data!C[518],MATCH(RC6,Data!C[526],0))& "" - "" &INDEX(Data!C[527],MATCH(RC6,Data!C[526],0))& "" - "" &INDEX(Data!C[515],MATCH(RC6,Data!C[526],0)),"""")"
Range("AV2").Copy Range("AV2:AV" & LastRow)
'36
Range("AW2").Value = "=IFERROR(INDEX(Data!C[532],MATCH(RC6,Data!C[541],0)) & "" - "" &INDEX(Data!C[533],MATCH(RC6,Data!C[541],0))& "" - "" &INDEX(Data!C[542],MATCH(RC6,Data!C[541],0))& "" - "" &INDEX(Data!C[530],MATCH(RC6,Data!C[541],0)),"""")"
Range("AW2").Copy Range("AW2:AW" & LastRow)
'37
Range("AX2").Value = "=IFERROR(INDEX(Data!C[547],MATCH(RC6,Data!C[556],0)) & "" - "" &INDEX(Data!C[548],MATCH(RC6,Data!C[556],0))& "" - "" &INDEX(Data!C[557],MATCH(RC6,Data!C[556],0))& "" - "" &INDEX(Data!C[545],MATCH(RC6,Data!C[556],0)),"""")"
Range("AX2").Copy Range("AX2:AX" & LastRow)
'38
Range("AY2").Value = "=IFERROR(INDEX(Data!C[562],MATCH(RC6,Data!C[571],0)) & "" - "" &INDEX(Data!C[563],MATCH(RC6,Data!C[571],0))& "" - "" &INDEX(Data!C[572],MATCH(RC6,Data!C[571],0))& "" - "" &INDEX(Data!C[560],MATCH(RC6,Data!C[571],0)),"""")"
Range("AY2").Copy Range("AY2:AY" & LastRow)
'39
Range("AZ2").Value = "=IFERROR(INDEX(Data!C[577],MATCH(RC6,Data!C[586],0)) & "" - "" &INDEX(Data!C[578],MATCH(RC6,Data!C[586],0))& "" - "" &INDEX(Data!C[587],MATCH(RC6,Data!C[586],0))& "" - "" &INDEX(Data!C[575],MATCH(RC6,Data!C[586],0)),"""")"
Range("AZ2").Copy Range("AZ2:AZ" & LastRow)
'40
Range("BA2").Value = "=IFERROR(INDEX(Data!C[592],MATCH(RC6,Data!C[601],0)) & "" - "" &INDEX(Data!C[593],MATCH(RC6,Data!C[601],0))& "" - "" &INDEX(Data!C[602],MATCH(RC6,Data!C[601],0))& "" - "" &INDEX(Data!C[590],MATCH(RC6,Data!C[601],0)),"""")"
Range("BA2").Copy Range("BA2:BA" & LastRow)
'41
Range("BB2").Value = "=IFERROR(INDEX(Data!C[607],MATCH(RC6,Data!C[616],0)) & "" - "" &INDEX(Data!C[608],MATCH(RC6,Data!C[616],0))& "" - "" &INDEX(Data!C[617],MATCH(RC6,Data!C[616],0))& "" - "" &INDEX(Data!C[605],MATCH(RC6,Data!C[616],0)),"""")"
Range("BB2").Copy Range("BB2:BB" & LastRow)
'42
Range("BC2").Value = "=IFERROR(INDEX(Data!C[622],MATCH(RC6,Data!C[631],0)) & "" - "" &INDEX(Data!C[623],MATCH(RC6,Data!C[631],0))& "" - "" &INDEX(Data!C[632],MATCH(RC6,Data!C[631],0))& "" - "" &INDEX(Data!C[620],MATCH(RC6,Data!C[631],0)),"""")"
Range("BC2").Copy Range("BC2:BC" & LastRow)
'43
Range("BD2").Value = "=IFERROR(INDEX(Data!C[637],MATCH(RC6,Data!C[646],0)) & "" - "" &INDEX(Data!C[638],MATCH(RC6,Data!C[646],0))& "" - "" &INDEX(Data!C[647],MATCH(RC6,Data!C[646],0))& "" - "" &INDEX(Data!C[635],MATCH(RC6,Data!C[646],0)),"""")"
Range("BD2").Copy Range("BD2:BD" & LastRow)
'44
Range("BE2").Value = "=IFERROR(INDEX(Data!C[652],MATCH(RC6,Data!C[661],0)) & "" - "" &INDEX(Data!C[653],MATCH(RC6,Data!C[661],0))& "" - "" &INDEX(Data!C[662],MATCH(RC6,Data!C[661],0))& "" - "" &INDEX(Data!C[650],MATCH(RC6,Data!C[661],0)),"""")"
Range("BE2").Copy Range("BE2:BE" & LastRow)
'45
Range("BF2").Value = "=IFERROR(INDEX(Data!C[667],MATCH(RC6,Data!C[676],0)) & "" - "" &INDEX(Data!C[668],MATCH(RC6,Data!C[676],0))& "" - "" &INDEX(Data!C[677],MATCH(RC6,Data!C[676],0))& "" - "" &INDEX(Data!C[665],MATCH(RC6,Data!C[676],0)),"""")"
Range("BF2").Copy Range("BF2:BF" & LastRow)
'46
Range("BG2").Value = "=IFERROR(INDEX(Data!C[682],MATCH(RC6,Data!C[691],0)) & "" - "" &INDEX(Data!C[683],MATCH(RC6,Data!C[691],0))& "" - "" &INDEX(Data!C[692],MATCH(RC6,Data!C[691],0))& "" - "" &INDEX(Data!C[680],MATCH(RC6,Data!C[691],0)),"""")"
Range("BG2").Copy Range("BG2:BG" & LastRow)
'47
Range("BH2").Value = "=IFERROR(INDEX(Data!C[697],MATCH(RC6,Data!C[706],0)) & "" - "" &INDEX(Data!C[698],MATCH(RC6,Data!C[706],0))& "" - "" &INDEX(Data!C[707],MATCH(RC6,Data!C[706],0))& "" - "" &INDEX(Data!C[695],MATCH(RC6,Data!C[706],0)),"""")"
Range("BH2").Copy Range("BH2:BH" & LastRow)
'48
Range("BI2").Value = "=IFERROR(INDEX(Data!C[712],MATCH(RC6,Data!C[721],0)) & "" - "" &INDEX(Data!C[713],MATCH(RC6,Data!C[721],0))& "" - "" &INDEX(Data!C[722],MATCH(RC6,Data!C[721],0))& "" - "" &INDEX(Data!C[710],MATCH(RC6,Data!C[721],0)),"""")"
Range("BI2").Copy Range("BI2:BI" & LastRow)
'49
Range("BJ2").Value = "=IFERROR(INDEX(Data!C[727],MATCH(RC6,Data!C[736],0)) & "" - "" &INDEX(Data!C[728],MATCH(RC6,Data!C[736],0))& "" - "" &INDEX(Data!C[737],MATCH(RC6,Data!C[736],0))& "" - "" &INDEX(Data!C[725],MATCH(RC6,Data!C[736],0)),"""")"
Range("BJ2").Copy Range("BJ2:BJ" & LastRow)
'50
Range("BK2").Value = "=IFERROR(INDEX(Data!C[742],MATCH(RC6,Data!C[751],0)) & "" - "" &INDEX(Data!C[743],MATCH(RC6,Data!C[751],0))& "" - "" &INDEX(Data!C[752],MATCH(RC6,Data!C[751],0))& "" - "" &INDEX(Data!C[740],MATCH(RC6,Data!C[751],0)),"""")"
Range("BK2").Copy Range("BK2:BK" & LastRow)
FormatSheets
ActiveSheet.Calculate
End Sub