- Katılım
- 4 Haziran 2008
- Mesajlar
- 798
- Excel Vers. ve Dili
- Excel 2021 TÜRKÇE
arkadaşlar aşağıdaki kod neden yavaş çalışyıor?dikkat edilirse hücreler yataydan tataya yapışıyor;hücreleri dik olarak yapıştırdığımda makro hızlı çalışıyor.bu sebeb olabilirmi?
Sub EmaKopya()
Dim S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("R"): Set S2 = Sheets("EMA")
S1.Range("B4:Y4").Copy S2.Range("B5")
S1.Range("B5:Y5").Copy S2.Range("AB5")
S1.Range("B6:Y6").Copy S2.Range("BB5")
S1.Range("B7:Y7").Copy S2.Range("CB5")
S1.Range("B8:Y8").Copy S2.Range("DB5")
S1.Range("B9:Y9").Copy S2.Range("EB5")
S1.Range("B10:Y10").Copy S2.Range("FB5")
S1.Range("B11:Y11").Copy S2.Range("GB5")
S1.Range("B12:Y12").Copy S2.Range("HB5")
S1.Range("B13:Y13").Copy S2.Range("IB5")
S1.Range("B14:Y14").Copy S2.Range("JB5")
S1.Range("B15:Y15").Copy S2.Range("KB5")
S1.Range("B16:Y16").Copy S2.Range("LB5")
S1.Range("B17:Y17").Copy S2.Range("MB5")
S1.Range("B18:Y18").Copy S2.Range("NB5")
S1.Range("B19:Y19").Copy S2.Range("OB5")
S1.Range("B20:Y20").Copy S2.Range("PB5")
S1.Range("B21:Y21").Copy S2.Range("QB5")
S1.Range("B22:Y22").Copy S2.Range("RB5")
S1.Range("B23:Y23").Copy S2.Range("SB5")
S1.Range("B24:Y24").Copy S2.Range("TB5")
S1.Range("B25:Y25").Copy S2.Range("UB5")
S1.Range("B26:Y26").Copy S2.Range("VB5")
S1.Range("B27:Y27").Copy S2.Range("WB5")
S1.Range("B28:Y28").Copy S2.Range("XB5")
S1.Range("B29:Y29").Copy S2.Range("YB5")
S1.Range("B30:Y30").Copy S2.Range("ZB5")
S1.Range("B31:Y31").Copy S2.Range("AAB5")
S1.Range("B32:Y32").Copy S2.Range("ABB5")
S1.Range("B33:Y33").Copy S2.Range("ACB5")
S1.Range("B34:Y34").Copy S2.Range("ADB5")
S1.Range("B35:Y35").Copy S2.Range("AEB5")
S1.Range("B36:Y36").Copy S2.Range("AFB5")
S1.Range("B37:Y37").Copy S2.Range("AGB5")
S1.Range("B38:Y38").Copy S2.Range("AHB5")
S1.Range("B39:Y39").Copy S2.Range("AIB5")
S1.Range("B40:Y40").Copy S2.Range("AJB5")
S1.Range("B41:Y41").Copy S2.Range("AKB5")
S1.Range("B42:Y42").Copy S2.Range("ALB5")
S1.Range("B43:Y43").Copy S2.Range("AMB5")
S1.Range("B44:Y44").Copy S2.Range("ANB5")
S1.Range("B45:Y45").Copy S2.Range("AOB5")
S1.Range("B46:Y46").Copy S2.Range("APB5")
S1.Range("B47:Y47").Copy S2.Range("AQB5")
S1.Range("B48:Y48").Copy S2.Range("ARB5")
S1.Range("B49:Y49").Copy S2.Range("ASB5")
S1.Range("B50:Y50").Copy S2.Range("ATB5")
S1.Range("B51:Y51").Copy S2.Range("AUB5")
S1.Range("B52:Y52").Copy S2.Range("AVB5")
S1.Range("B53:Y53").Copy S2.Range("AWB5")
S1.Range("B54:Y54").Copy S2.Range("AXB5")
S1.Range("B55:Y55").Copy S2.Range("AYB5")
S1.Range("B56:Y56").Copy S2.Range("AZB5")
S1.Range("B57:Y57").Copy S2.Range("BAB5")
S1.Range("B58:Y58").Copy S2.Range("BBB5")
S1.Range("B59:Y59").Copy S2.Range("BCB5")
S1.Range("B60:Y60").Copy S2.Range("BDB5")
S1.Range("B61:Y61").Copy S2.Range("BEB5")
S1.Range("B62:Y62").Copy S2.Range("BFB5")
S1.Range("B63:Y63").Copy S2.Range("BGB5")
S1.Range("B64:Y64").Copy S2.Range("BHB5")
S1.Range("B65:Y65").Copy S2.Range("BIB5")
S1.Range("B66:Y66").Copy S2.Range("BJB5")
S1.Range("B67:Y67").Copy S2.Range("BKB5")
S1.Range("B68:Y68").Copy S2.Range("BLB5")
S1.Range("B69:Y69").Copy S2.Range("BMB5")
S1.Range("B70:Y70").Copy S2.Range("BNB5")
S1.Range("B71:Y71").Copy S2.Range("BOB5")
S1.Range("B72:Y72").Copy S2.Range("BPB5")
S1.Range("B73:Y73").Copy S2.Range("BQB5")
S1.Range("B74:Y74").Copy S2.Range("BRB5")
S1.Range("B75:Y75").Copy S2.Range("BSB5")
S1.Range("B76:Y76").Copy S2.Range("BTB5")
S1.Range("B77:Y77").Copy S2.Range("BUB5")
S1.Range("B78:Y78").Copy S2.Range("BVB5")
S1.Range("B79:Y79").Copy S2.Range("BWB5")
S1.Range("B80:Y80").Copy S2.Range("BXB5")
S1.Range("B81:Y81").Copy S2.Range("BYB5")
S1.Range("B82:Y82").Copy S2.Range("BZB5")
S1.Range("B83:Y83").Copy S2.Range("CAB5")
S1.Range("B84:Y84").Copy S2.Range("CBB5")
S1.Range("B85:Y85").Copy S2.Range("CCB5")
S1.Range("B86:Y86").Copy S2.Range("CDB5")
S1.Range("B87:Y87").Copy S2.Range("CEB5")
S1.Range("B88:Y88").Copy S2.Range("CFB5")
S1.Range("B89:Y89").Copy S2.Range("CGB5")
S1.Range("B90:Y90").Copy S2.Range("CHB5")
S1.Range("B91:Y91").Copy S2.Range("CIB5")
S1.Range("B92:Y92").Copy S2.Range("CJB5")
S1.Range("B93:Y93").Copy S2.Range("CKB5")
S1.Range("B94:Y94").Copy S2.Range("CLB5")
S1.Range("B95:Y95").Copy S2.Range("CMB5")
S1.Range("B96:Y96").Copy S2.Range("CNB5")
S1.Range("B97:Y97").Copy S2.Range("COB5")
S1.Range("B98:Y98").Copy S2.Range("CPB5")
S1.Range("B99:Y99").Copy S2.Range("CQB5")
S1.Range("B100:Y100").Copy S2.Range("CRB5")
S1.Range("B101:Y101").Copy S2.Range("CSB5")
S1.Range("B102:Y102").Copy S2.Range("CTB5")
S1.Range("B103:Y103").Copy S2.Range("CUB5")
S1.Range("B104:Y104").Copy S2.Range("CVB5")
S1.Range("B105:Y105").Copy S2.Range("CWB5")
S1.Range("B106:Y106").Copy S2.Range("CXB5")
S1.Range("B107:Y107").Copy S2.Range("CYB5")
S1.Range("B108:Y108").Copy S2.Range("CZB5")
S1.Range("B109:Y109").Copy S2.Range("DAB5")
S1.Range("B110:Y110").Copy S2.Range("DBB5")
S1.Range("B111:Y111").Copy S2.Range("DCB5")
S1.Range("B112:Y112").Copy S2.Range("DDB5")
S1.Range("B113:Y113").Copy S2.Range("DEB5")
S1.Range("B114:Y114").Copy S2.Range("DFB5")
S1.Range("B115:Y115").Copy S2.Range("DGB5")
S1.Range("B116:Y116").Copy S2.Range("DHB5")
S1.Range("B117:Y117").Copy S2.Range("DIB5")
S1.Range("B118:Y118").Copy S2.Range("DJB5")
S1.Range("B119:Y119").Copy S2.Range("DKB5")
S1.Range("B120:Y120").Copy S2.Range("DLB5")
S1.Range("B121:Y121").Copy S2.Range("DMB5")
S1.Range("B122:Y122").Copy S2.Range("DNB5")
S1.Range("B123:Y123").Copy S2.Range("DOB5")
S1.Range("B124:Y124").Copy S2.Range("DPB5")
S1.Range("B125:Y125").Copy S2.Range("DQB5")
S1.Range("B126:Y126").Copy S2.Range("DRB5")
S1.Range("B127:Y127").Copy S2.Range("DSB5")
S1.Range("B128:Y128").Copy S2.Range("DTB5")
S1.Range("B129:Y129").Copy S2.Range("DUB5")
S1.Range("B130:Y130").Copy S2.Range("DVB5")
S1.Range("B131:Y131").Copy S2.Range("DWB5")
S1.Range("B132:Y132").Copy S2.Range("DXB5")
S1.Range("B133:Y133").Copy S2.Range("DYB5")
S1.Range("B134:Y134").Copy S2.Range("DZB5")
S1.Range("B135:Y135").Copy S2.Range("EAB5")
S1.Range("B136:Y136").Copy S2.Range("EBB5")
S1.Range("B137:Y137").Copy S2.Range("ECB5")
S1.Range("B138:Y138").Copy S2.Range("EDB5")
S1.Range("B139:Y139").Copy S2.Range("EEB5")
S1.Range("B140:Y140").Copy S2.Range("EFB5")
S1.Range("B141:Y141").Copy S2.Range("EGB5")
S1.Range("B142:Y142").Copy S2.Range("EHB5")
S1.Range("B143:Y143").Copy S2.Range("EIB5")
S1.Range("B144:Y144").Copy S2.Range("EJB5")
S1.Range("B145:Y145").Copy S2.Range("EKB5")
S1.Range("B146:Y146").Copy S2.Range("ELB5")
S1.Range("B147:Y147").Copy S2.Range("EMB5")
S1.Range("B148:Y148").Copy S2.Range("ENB5")
S1.Range("B149:Y149").Copy S2.Range("EOB5")
S1.Range("B150:Y150").Copy S2.Range("EPB5")
S1.Range("B151:Y151").Copy S2.Range("EQB5")
S1.Range("B152:Y152").Copy S2.Range("ERB5")
S1.Range("B153:Y153").Copy S2.Range("ESB5")
S1.Range("B154:Y154").Copy S2.Range("ETB5")
S1.Range("B155:Y155").Copy S2.Range("EUB5")
S1.Range("B156:Y156").Copy S2.Range("EVB5")
S1.Range("B157:Y157").Copy S2.Range("EWB5")
S1.Range("B158:Y158").Copy S2.Range("EXB5")
S1.Range("B159:Y159").Copy S2.Range("EYB5")
S1.Range("B160:Y160").Copy S2.Range("EZB5")
S1.Range("B161:Y161").Copy S2.Range("FAB5")
S1.Range("B162:Y162").Copy S2.Range("FBB5")
S1.Range("B163:Y163").Copy S2.Range("FCB5")
S1.Range("B164:Y164").Copy S2.Range("FDB5")
S1.Range("B165:Y165").Copy S2.Range("FEB5")
S1.Range("B166:Y166").Copy S2.Range("FFB5")
S1.Range("B167:Y167").Copy S2.Range("FGB5")
S1.Range("B168:Y168").Copy S2.Range("FHB5")
S1.Range("B169:Y169").Copy S2.Range("FIB5")
S1.Range("B170:Y170").Copy S2.Range("FJB5")
S1.Range("B171:Y171").Copy S2.Range("FKB5")
S1.Range("B172:Y172").Copy S2.Range("FLB5")
S1.Range("B173:Y173").Copy S2.Range("FMB5")
S1.Range("B174:Y174").Copy S2.Range("FNB5")
S1.Range("B175:Y175").Copy S2.Range("FOB5")
S1.Range("B176:Y176").Copy S2.Range("FPB5")
S1.Range("B177:Y177").Copy S2.Range("FQB5")
S1.Range("B178:Y178").Copy S2.Range("FRB5")
S1.Range("B179:Y179").Copy S2.Range("FSB5")
S1.Range("B180:Y180").Copy S2.Range("FTB5")
S1.Range("B181:Y181").Copy S2.Range("FUB5")
S1.Range("B182:Y182").Copy S2.Range("FVB5")
S1.Range("B183:Y183").Copy S2.Range("FWB5")
S1.Range("B184:Y184").Copy S2.Range("FXB5")
S1.Range("B185:Y185").Copy S2.Range("FYB5")
S1.Range("B186:Y186").Copy S2.Range("FZB5")
S1.Range("B187:Y187").Copy S2.Range("GAB5")
S1.Range("B188:Y188").Copy S2.Range("GBB5")
S1.Range("B189:Y189").Copy S2.Range("GCB5")
S1.Range("B190:Y190").Copy S2.Range("GDB5")
S1.Range("B191:Y191").Copy S2.Range("GEB5")
S1.Range("B192:Y192").Copy S2.Range("GFB5")
S1.Range("B193:Y193").Copy S2.Range("GGB5")
S1.Range("B194:Y194").Copy S2.Range("GHB5")
S1.Range("B195:Y195").Copy S2.Range("GIB5")
S1.Range("B196:Y196").Copy S2.Range("GJB5")
S1.Range("B197:Y197").Copy S2.Range("GKB5")
S1.Range("B198:Y198").Copy S2.Range("GLB5")
S1.Range("B199:Y199").Copy S2.Range("GMB5")
S1.Range("B200:Y200").Copy S2.Range("GNB5")
S1.Range("B201:Y201").Copy S2.Range("GOB5")
S1.Range("B202:Y202").Copy S2.Range("GPB5")
S1.Range("B203:Y203").Copy S2.Range("GQB5")
S1.Range("B204:Y204").Copy S2.Range("GRB5")
S1.Range("B205:Y205").Copy S2.Range("GSB5")
S1.Range("B206:Y206").Copy S2.Range("GTB5")
S1.Range("B207:Y207").Copy S2.Range("GUB5")
S1.Range("B208:Y208").Copy S2.Range("GVB5")
S1.Range("B209:Y209").Copy S2.Range("GWB5")
S1.Range("B210:Y210").Copy S2.Range("GXB5")
S1.Range("B211:Y211").Copy S2.Range("GYB5")
S1.Range("B212:Y212").Copy S2.Range("GZB5")
S1.Range("B213:Y213").Copy S2.Range("HAB5")
S1.Range("B214:Y214").Copy S2.Range("HBB5")
S1.Range("B215:Y215").Copy S2.Range("HCB5")
S1.Range("B216:Y216").Copy S2.Range("HDB5")
S1.Range("B217:Y217").Copy S2.Range("HEB5")
S1.Range("B218:Y218").Copy S2.Range("HFB5")
S1.Range("B219:Y219").Copy S2.Range("HGB5")
S1.Range("B220:Y220").Copy S2.Range("HHB5")
S1.Range("B221:Y221").Copy S2.Range("HIB5")
S1.Range("B222:Y222").Copy S2.Range("HJB5")
S1.Range("B223:Y223").Copy S2.Range("HKB5")
S1.Range("B224:Y224").Copy S2.Range("HLB5")
S1.Range("B225:Y225").Copy S2.Range("HMB5")
S1.Range("B226:Y226").Copy S2.Range("HNB5")
S1.Range("B227:Y227").Copy S2.Range("HOB5")
S1.Range("B228:Y228").Copy S2.Range("HPB5")
S1.Range("B229:Y229").Copy S2.Range("HQB5")
S1.Range("B230:Y230").Copy S2.Range("HRB5")
S1.Range("B231:Y231").Copy S2.Range("HSB5")
S1.Range("B232:Y232").Copy S2.Range("HTB5")
S1.Range("B233:Y233").Copy S2.Range("HUB5")
S1.Range("B234:Y234").Copy S2.Range("HVB5")
S1.Range("B235:Y235").Copy S2.Range("HWB5")
S1.Range("B236:Y236").Copy S2.Range("HXB5")
S1.Range("B237:Y237").Copy S2.Range("HYB5")
S1.Range("B238:Y238").Copy S2.Range("HZB5")
S1.Range("B239:Y239").Copy S2.Range("IAB5")
S1.Range("B240:Y240").Copy S2.Range("IBB5")
S1.Range("B241:Y241").Copy S2.Range("ICB5")
S1.Range("B242:Y242").Copy S2.Range("IDB5")
S1.Range("B243:Y243").Copy S2.Range("IEB5")
S1.Range("B244:Y244").Copy S2.Range("IFB5")
S1.Range("B245:Y245").Copy S2.Range("IGB5")
S1.Range("B246:Y246").Copy S2.Range("IHB5")
S1.Range("B247:Y247").Copy S2.Range("IIB5")
S1.Range("B248:Y248").Copy S2.Range("IJB5")
S1.Range("B249:Y249").Copy S2.Range("IKB5")
S1.Range("B250:Y250").Copy S2.Range("ILB5")
S1.Range("B251:Y251").Copy S2.Range("IMB5")
S1.Range("B252:Y252").Copy S2.Range("INB5")
S1.Range("B253:Y253").Copy S2.Range("IOB5")
S1.Range("B254:Y254").Copy S2.Range("IPB5")
S1.Range("B255:Y255").Copy S2.Range("IQB5")
S1.Range("B256:Y256").Copy S2.Range("IRB5")
S1.Range("B257:Y257").Copy S2.Range("ISB5")
S1.Range("B258:Y258").Copy S2.Range("ITB5")
S1.Range("B259:Y259").Copy S2.Range("IUB5")
S1.Range("B260:Y260").Copy S2.Range("IVB5")
S1.Range("B261:Y261").Copy S2.Range("IWB5")
S1.Range("B262:Y262").Copy S2.Range("IXB5")
S1.Range("B263:Y263").Copy S2.Range("IYB5")
S1.Range("B264:Y264").Copy S2.Range("IZB5")
S1.Range("B265:Y265").Copy S2.Range("JAB5")
S1.Range("B266:Y266").Copy S2.Range("JBB5")
S1.Range("B267:Y267").Copy S2.Range("JCB5")
S1.Range("B268:Y268").Copy S2.Range("JDB5")
S1.Range("B269:Y269").Copy S2.Range("JEB5")
S1.Range("B270:Y270").Copy S2.Range("JFB5")
S1.Range("B271:Y271").Copy S2.Range("JGB5")
S1.Range("B272:Y272").Copy S2.Range("JHB5")
S1.Range("B273:Y273").Copy S2.Range("JIB5")
S1.Range("B274:Y274").Copy S2.Range("JJB5")
S1.Range("B275:Y275").Copy S2.Range("JKB5")
S1.Range("B276:Y276").Copy S2.Range("JLB5")
S1.Range("B277:Y277").Copy S2.Range("JMB5")
S1.Range("B278:Y278").Copy S2.Range("JNB5")
S1.Range("B279:Y279").Copy S2.Range("JOB5")
S1.Range("B280:Y280").Copy S2.Range("JPB5")
S1.Range("B281:Y281").Copy S2.Range("JQB5")
S1.Range("B282:Y282").Copy S2.Range("JRB5")
S1.Range("B283:Y283").Copy S2.Range("JSB5")
S1.Range("B284:Y284").Copy S2.Range("JTB5")
S1.Range("B285:Y285").Copy S2.Range("JUB5")
S1.Range("B286:Y286").Copy S2.Range("JVB5")
S1.Range("B287:Y287").Copy S2.Range("JWB5")
S1.Range("B288:Y288").Copy S2.Range("JXB5")
S1.Range("B289:Y289").Copy S2.Range("JYB5")
S1.Range("B290:Y290").Copy S2.Range("JZB5")
S1.Range("B291:Y291").Copy S2.Range("KAB5")
S1.Range("B292:Y292").Copy S2.Range("KBB5")
S1.Range("B293:Y293").Copy S2.Range("KCB5")
S1.Range("B294:Y294").Copy S2.Range("KDB5")
S1.Range("B295:Y295").Copy S2.Range("KEB5")
S1.Range("B296:Y296").Copy S2.Range("KFB5")
S1.Range("B297:Y297").Copy S2.Range("KGB5")
S1.Range("B298:Y298").Copy S2.Range("KHB5")
S1.Range("B299:Y299").Copy S2.Range("KIB5")
S1.Range("B300:Y300").Copy S2.Range("KJB5")
S1.Range("B301:Y301").Copy S2.Range("KKB5")
S1.Range("B302:Y302").Copy S2.Range("KLB5")
S1.Range("B303:Y303").Copy S2.Range("KMB5")
S1.Range("B304:Y304").Copy S2.Range("KNB5")
S1.Range("B305:Y305").Copy S2.Range("KOB5")
S1.Range("B306:Y306").Copy S2.Range("KPB5")
S1.Range("B307:Y307").Copy S2.Range("KQB5")
S1.Range("B308:Y308").Copy S2.Range("KRB5")
S1.Range("B309:Y309").Copy S2.Range("KSB5")
S1.Range("B310:Y310").Copy S2.Range("KTB5")
S1.Range("B311:Y311").Copy S2.Range("KUB5")
S1.Range("B312:Y312").Copy S2.Range("KVB5")
S1.Range("B313:Y313").Copy S2.Range("KWB5")
S1.Range("B314:Y314").Copy S2.Range("KXB5")
S1.Range("B315:Y315").Copy S2.Range("KYB5")
S1.Range("B316:Y316").Copy S2.Range("KZB5")
S1.Range("B317:Y317").Copy S2.Range("LAB5")
S1.Range("B318:Y318").Copy S2.Range("LBB5")
S1.Range("B319:Y319").Copy S2.Range("LCB5")
S1.Range("B320:Y320").Copy S2.Range("LDB5")
S1.Range("B321:Y321").Copy S2.Range("LEB5")
S1.Range("B322:Y322").Copy S2.Range("LFB5")
S1.Range("B323:Y323").Copy S2.Range("LGB5")
S1.Range("B324:Y324").Copy S2.Range("LHB5")
S1.Range("B325:Y325").Copy S2.Range("LIB5")
S1.Range("B326:Y326").Copy S2.Range("LJB5")
S1.Range("B327:Y327").Copy S2.Range("LKB5")
S1.Range("B328:Y328").Copy S2.Range("LLB5")
S1.Range("B329:Y329").Copy S2.Range("LMB5")
S1.Range("B330:Y330").Copy S2.Range("LNB5")
S1.Range("B331:Y331").Copy S2.Range("LOB5")
S1.Range("B332:Y332").Copy S2.Range("LPB5")
S1.Range("B333:Y333").Copy S2.Range("LQB5")
S1.Range("B334:Y334").Copy S2.Range("LRB5")
S1.Range("B335:Y335").Copy S2.Range("LSB5")
S1.Range("B336:Y336").Copy S2.Range("LTB5")
S1.Range("B337:Y337").Copy S2.Range("LUB5")
S1.Range("B338:Y338").Copy S2.Range("LVB5")
S1.Range("B339:Y339").Copy S2.Range("LWB5")
S1.Range("B340:Y340").Copy S2.Range("LXB5")
S1.Range("B341:Y341").Copy S2.Range("LYB5")
S1.Range("B342:Y342").Copy S2.Range("LZB5")
S1.Range("B343:Y343").Copy S2.Range("MAB5")
S1.Range("B344:Y344").Copy S2.Range("MBB5")
S1.Range("B345:Y345").Copy S2.Range("MCB5")
S1.Range("B346:Y346").Copy S2.Range("MDB5")
S1.Range("B347:Y347").Copy S2.Range("MEB5")
S1.Range("B348:Y348").Copy S2.Range("MFB5")
S1.Range("B349:Y349").Copy S2.Range("MGB5")
S1.Range("B350:Y350").Copy S2.Range("MHB5")
S1.Range("B351:Y351").Copy S2.Range("MIB5")
S1.Range("B352:Y352").Copy S2.Range("MJB5")
S1.Range("B353:Y353").Copy S2.Range("MKB5")
End Sub
Sub EmaKopya()
Dim S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("R"): Set S2 = Sheets("EMA")
S1.Range("B4:Y4").Copy S2.Range("B5")
S1.Range("B5:Y5").Copy S2.Range("AB5")
S1.Range("B6:Y6").Copy S2.Range("BB5")
S1.Range("B7:Y7").Copy S2.Range("CB5")
S1.Range("B8:Y8").Copy S2.Range("DB5")
S1.Range("B9:Y9").Copy S2.Range("EB5")
S1.Range("B10:Y10").Copy S2.Range("FB5")
S1.Range("B11:Y11").Copy S2.Range("GB5")
S1.Range("B12:Y12").Copy S2.Range("HB5")
S1.Range("B13:Y13").Copy S2.Range("IB5")
S1.Range("B14:Y14").Copy S2.Range("JB5")
S1.Range("B15:Y15").Copy S2.Range("KB5")
S1.Range("B16:Y16").Copy S2.Range("LB5")
S1.Range("B17:Y17").Copy S2.Range("MB5")
S1.Range("B18:Y18").Copy S2.Range("NB5")
S1.Range("B19:Y19").Copy S2.Range("OB5")
S1.Range("B20:Y20").Copy S2.Range("PB5")
S1.Range("B21:Y21").Copy S2.Range("QB5")
S1.Range("B22:Y22").Copy S2.Range("RB5")
S1.Range("B23:Y23").Copy S2.Range("SB5")
S1.Range("B24:Y24").Copy S2.Range("TB5")
S1.Range("B25:Y25").Copy S2.Range("UB5")
S1.Range("B26:Y26").Copy S2.Range("VB5")
S1.Range("B27:Y27").Copy S2.Range("WB5")
S1.Range("B28:Y28").Copy S2.Range("XB5")
S1.Range("B29:Y29").Copy S2.Range("YB5")
S1.Range("B30:Y30").Copy S2.Range("ZB5")
S1.Range("B31:Y31").Copy S2.Range("AAB5")
S1.Range("B32:Y32").Copy S2.Range("ABB5")
S1.Range("B33:Y33").Copy S2.Range("ACB5")
S1.Range("B34:Y34").Copy S2.Range("ADB5")
S1.Range("B35:Y35").Copy S2.Range("AEB5")
S1.Range("B36:Y36").Copy S2.Range("AFB5")
S1.Range("B37:Y37").Copy S2.Range("AGB5")
S1.Range("B38:Y38").Copy S2.Range("AHB5")
S1.Range("B39:Y39").Copy S2.Range("AIB5")
S1.Range("B40:Y40").Copy S2.Range("AJB5")
S1.Range("B41:Y41").Copy S2.Range("AKB5")
S1.Range("B42:Y42").Copy S2.Range("ALB5")
S1.Range("B43:Y43").Copy S2.Range("AMB5")
S1.Range("B44:Y44").Copy S2.Range("ANB5")
S1.Range("B45:Y45").Copy S2.Range("AOB5")
S1.Range("B46:Y46").Copy S2.Range("APB5")
S1.Range("B47:Y47").Copy S2.Range("AQB5")
S1.Range("B48:Y48").Copy S2.Range("ARB5")
S1.Range("B49:Y49").Copy S2.Range("ASB5")
S1.Range("B50:Y50").Copy S2.Range("ATB5")
S1.Range("B51:Y51").Copy S2.Range("AUB5")
S1.Range("B52:Y52").Copy S2.Range("AVB5")
S1.Range("B53:Y53").Copy S2.Range("AWB5")
S1.Range("B54:Y54").Copy S2.Range("AXB5")
S1.Range("B55:Y55").Copy S2.Range("AYB5")
S1.Range("B56:Y56").Copy S2.Range("AZB5")
S1.Range("B57:Y57").Copy S2.Range("BAB5")
S1.Range("B58:Y58").Copy S2.Range("BBB5")
S1.Range("B59:Y59").Copy S2.Range("BCB5")
S1.Range("B60:Y60").Copy S2.Range("BDB5")
S1.Range("B61:Y61").Copy S2.Range("BEB5")
S1.Range("B62:Y62").Copy S2.Range("BFB5")
S1.Range("B63:Y63").Copy S2.Range("BGB5")
S1.Range("B64:Y64").Copy S2.Range("BHB5")
S1.Range("B65:Y65").Copy S2.Range("BIB5")
S1.Range("B66:Y66").Copy S2.Range("BJB5")
S1.Range("B67:Y67").Copy S2.Range("BKB5")
S1.Range("B68:Y68").Copy S2.Range("BLB5")
S1.Range("B69:Y69").Copy S2.Range("BMB5")
S1.Range("B70:Y70").Copy S2.Range("BNB5")
S1.Range("B71:Y71").Copy S2.Range("BOB5")
S1.Range("B72:Y72").Copy S2.Range("BPB5")
S1.Range("B73:Y73").Copy S2.Range("BQB5")
S1.Range("B74:Y74").Copy S2.Range("BRB5")
S1.Range("B75:Y75").Copy S2.Range("BSB5")
S1.Range("B76:Y76").Copy S2.Range("BTB5")
S1.Range("B77:Y77").Copy S2.Range("BUB5")
S1.Range("B78:Y78").Copy S2.Range("BVB5")
S1.Range("B79:Y79").Copy S2.Range("BWB5")
S1.Range("B80:Y80").Copy S2.Range("BXB5")
S1.Range("B81:Y81").Copy S2.Range("BYB5")
S1.Range("B82:Y82").Copy S2.Range("BZB5")
S1.Range("B83:Y83").Copy S2.Range("CAB5")
S1.Range("B84:Y84").Copy S2.Range("CBB5")
S1.Range("B85:Y85").Copy S2.Range("CCB5")
S1.Range("B86:Y86").Copy S2.Range("CDB5")
S1.Range("B87:Y87").Copy S2.Range("CEB5")
S1.Range("B88:Y88").Copy S2.Range("CFB5")
S1.Range("B89:Y89").Copy S2.Range("CGB5")
S1.Range("B90:Y90").Copy S2.Range("CHB5")
S1.Range("B91:Y91").Copy S2.Range("CIB5")
S1.Range("B92:Y92").Copy S2.Range("CJB5")
S1.Range("B93:Y93").Copy S2.Range("CKB5")
S1.Range("B94:Y94").Copy S2.Range("CLB5")
S1.Range("B95:Y95").Copy S2.Range("CMB5")
S1.Range("B96:Y96").Copy S2.Range("CNB5")
S1.Range("B97:Y97").Copy S2.Range("COB5")
S1.Range("B98:Y98").Copy S2.Range("CPB5")
S1.Range("B99:Y99").Copy S2.Range("CQB5")
S1.Range("B100:Y100").Copy S2.Range("CRB5")
S1.Range("B101:Y101").Copy S2.Range("CSB5")
S1.Range("B102:Y102").Copy S2.Range("CTB5")
S1.Range("B103:Y103").Copy S2.Range("CUB5")
S1.Range("B104:Y104").Copy S2.Range("CVB5")
S1.Range("B105:Y105").Copy S2.Range("CWB5")
S1.Range("B106:Y106").Copy S2.Range("CXB5")
S1.Range("B107:Y107").Copy S2.Range("CYB5")
S1.Range("B108:Y108").Copy S2.Range("CZB5")
S1.Range("B109:Y109").Copy S2.Range("DAB5")
S1.Range("B110:Y110").Copy S2.Range("DBB5")
S1.Range("B111:Y111").Copy S2.Range("DCB5")
S1.Range("B112:Y112").Copy S2.Range("DDB5")
S1.Range("B113:Y113").Copy S2.Range("DEB5")
S1.Range("B114:Y114").Copy S2.Range("DFB5")
S1.Range("B115:Y115").Copy S2.Range("DGB5")
S1.Range("B116:Y116").Copy S2.Range("DHB5")
S1.Range("B117:Y117").Copy S2.Range("DIB5")
S1.Range("B118:Y118").Copy S2.Range("DJB5")
S1.Range("B119:Y119").Copy S2.Range("DKB5")
S1.Range("B120:Y120").Copy S2.Range("DLB5")
S1.Range("B121:Y121").Copy S2.Range("DMB5")
S1.Range("B122:Y122").Copy S2.Range("DNB5")
S1.Range("B123:Y123").Copy S2.Range("DOB5")
S1.Range("B124:Y124").Copy S2.Range("DPB5")
S1.Range("B125:Y125").Copy S2.Range("DQB5")
S1.Range("B126:Y126").Copy S2.Range("DRB5")
S1.Range("B127:Y127").Copy S2.Range("DSB5")
S1.Range("B128:Y128").Copy S2.Range("DTB5")
S1.Range("B129:Y129").Copy S2.Range("DUB5")
S1.Range("B130:Y130").Copy S2.Range("DVB5")
S1.Range("B131:Y131").Copy S2.Range("DWB5")
S1.Range("B132:Y132").Copy S2.Range("DXB5")
S1.Range("B133:Y133").Copy S2.Range("DYB5")
S1.Range("B134:Y134").Copy S2.Range("DZB5")
S1.Range("B135:Y135").Copy S2.Range("EAB5")
S1.Range("B136:Y136").Copy S2.Range("EBB5")
S1.Range("B137:Y137").Copy S2.Range("ECB5")
S1.Range("B138:Y138").Copy S2.Range("EDB5")
S1.Range("B139:Y139").Copy S2.Range("EEB5")
S1.Range("B140:Y140").Copy S2.Range("EFB5")
S1.Range("B141:Y141").Copy S2.Range("EGB5")
S1.Range("B142:Y142").Copy S2.Range("EHB5")
S1.Range("B143:Y143").Copy S2.Range("EIB5")
S1.Range("B144:Y144").Copy S2.Range("EJB5")
S1.Range("B145:Y145").Copy S2.Range("EKB5")
S1.Range("B146:Y146").Copy S2.Range("ELB5")
S1.Range("B147:Y147").Copy S2.Range("EMB5")
S1.Range("B148:Y148").Copy S2.Range("ENB5")
S1.Range("B149:Y149").Copy S2.Range("EOB5")
S1.Range("B150:Y150").Copy S2.Range("EPB5")
S1.Range("B151:Y151").Copy S2.Range("EQB5")
S1.Range("B152:Y152").Copy S2.Range("ERB5")
S1.Range("B153:Y153").Copy S2.Range("ESB5")
S1.Range("B154:Y154").Copy S2.Range("ETB5")
S1.Range("B155:Y155").Copy S2.Range("EUB5")
S1.Range("B156:Y156").Copy S2.Range("EVB5")
S1.Range("B157:Y157").Copy S2.Range("EWB5")
S1.Range("B158:Y158").Copy S2.Range("EXB5")
S1.Range("B159:Y159").Copy S2.Range("EYB5")
S1.Range("B160:Y160").Copy S2.Range("EZB5")
S1.Range("B161:Y161").Copy S2.Range("FAB5")
S1.Range("B162:Y162").Copy S2.Range("FBB5")
S1.Range("B163:Y163").Copy S2.Range("FCB5")
S1.Range("B164:Y164").Copy S2.Range("FDB5")
S1.Range("B165:Y165").Copy S2.Range("FEB5")
S1.Range("B166:Y166").Copy S2.Range("FFB5")
S1.Range("B167:Y167").Copy S2.Range("FGB5")
S1.Range("B168:Y168").Copy S2.Range("FHB5")
S1.Range("B169:Y169").Copy S2.Range("FIB5")
S1.Range("B170:Y170").Copy S2.Range("FJB5")
S1.Range("B171:Y171").Copy S2.Range("FKB5")
S1.Range("B172:Y172").Copy S2.Range("FLB5")
S1.Range("B173:Y173").Copy S2.Range("FMB5")
S1.Range("B174:Y174").Copy S2.Range("FNB5")
S1.Range("B175:Y175").Copy S2.Range("FOB5")
S1.Range("B176:Y176").Copy S2.Range("FPB5")
S1.Range("B177:Y177").Copy S2.Range("FQB5")
S1.Range("B178:Y178").Copy S2.Range("FRB5")
S1.Range("B179:Y179").Copy S2.Range("FSB5")
S1.Range("B180:Y180").Copy S2.Range("FTB5")
S1.Range("B181:Y181").Copy S2.Range("FUB5")
S1.Range("B182:Y182").Copy S2.Range("FVB5")
S1.Range("B183:Y183").Copy S2.Range("FWB5")
S1.Range("B184:Y184").Copy S2.Range("FXB5")
S1.Range("B185:Y185").Copy S2.Range("FYB5")
S1.Range("B186:Y186").Copy S2.Range("FZB5")
S1.Range("B187:Y187").Copy S2.Range("GAB5")
S1.Range("B188:Y188").Copy S2.Range("GBB5")
S1.Range("B189:Y189").Copy S2.Range("GCB5")
S1.Range("B190:Y190").Copy S2.Range("GDB5")
S1.Range("B191:Y191").Copy S2.Range("GEB5")
S1.Range("B192:Y192").Copy S2.Range("GFB5")
S1.Range("B193:Y193").Copy S2.Range("GGB5")
S1.Range("B194:Y194").Copy S2.Range("GHB5")
S1.Range("B195:Y195").Copy S2.Range("GIB5")
S1.Range("B196:Y196").Copy S2.Range("GJB5")
S1.Range("B197:Y197").Copy S2.Range("GKB5")
S1.Range("B198:Y198").Copy S2.Range("GLB5")
S1.Range("B199:Y199").Copy S2.Range("GMB5")
S1.Range("B200:Y200").Copy S2.Range("GNB5")
S1.Range("B201:Y201").Copy S2.Range("GOB5")
S1.Range("B202:Y202").Copy S2.Range("GPB5")
S1.Range("B203:Y203").Copy S2.Range("GQB5")
S1.Range("B204:Y204").Copy S2.Range("GRB5")
S1.Range("B205:Y205").Copy S2.Range("GSB5")
S1.Range("B206:Y206").Copy S2.Range("GTB5")
S1.Range("B207:Y207").Copy S2.Range("GUB5")
S1.Range("B208:Y208").Copy S2.Range("GVB5")
S1.Range("B209:Y209").Copy S2.Range("GWB5")
S1.Range("B210:Y210").Copy S2.Range("GXB5")
S1.Range("B211:Y211").Copy S2.Range("GYB5")
S1.Range("B212:Y212").Copy S2.Range("GZB5")
S1.Range("B213:Y213").Copy S2.Range("HAB5")
S1.Range("B214:Y214").Copy S2.Range("HBB5")
S1.Range("B215:Y215").Copy S2.Range("HCB5")
S1.Range("B216:Y216").Copy S2.Range("HDB5")
S1.Range("B217:Y217").Copy S2.Range("HEB5")
S1.Range("B218:Y218").Copy S2.Range("HFB5")
S1.Range("B219:Y219").Copy S2.Range("HGB5")
S1.Range("B220:Y220").Copy S2.Range("HHB5")
S1.Range("B221:Y221").Copy S2.Range("HIB5")
S1.Range("B222:Y222").Copy S2.Range("HJB5")
S1.Range("B223:Y223").Copy S2.Range("HKB5")
S1.Range("B224:Y224").Copy S2.Range("HLB5")
S1.Range("B225:Y225").Copy S2.Range("HMB5")
S1.Range("B226:Y226").Copy S2.Range("HNB5")
S1.Range("B227:Y227").Copy S2.Range("HOB5")
S1.Range("B228:Y228").Copy S2.Range("HPB5")
S1.Range("B229:Y229").Copy S2.Range("HQB5")
S1.Range("B230:Y230").Copy S2.Range("HRB5")
S1.Range("B231:Y231").Copy S2.Range("HSB5")
S1.Range("B232:Y232").Copy S2.Range("HTB5")
S1.Range("B233:Y233").Copy S2.Range("HUB5")
S1.Range("B234:Y234").Copy S2.Range("HVB5")
S1.Range("B235:Y235").Copy S2.Range("HWB5")
S1.Range("B236:Y236").Copy S2.Range("HXB5")
S1.Range("B237:Y237").Copy S2.Range("HYB5")
S1.Range("B238:Y238").Copy S2.Range("HZB5")
S1.Range("B239:Y239").Copy S2.Range("IAB5")
S1.Range("B240:Y240").Copy S2.Range("IBB5")
S1.Range("B241:Y241").Copy S2.Range("ICB5")
S1.Range("B242:Y242").Copy S2.Range("IDB5")
S1.Range("B243:Y243").Copy S2.Range("IEB5")
S1.Range("B244:Y244").Copy S2.Range("IFB5")
S1.Range("B245:Y245").Copy S2.Range("IGB5")
S1.Range("B246:Y246").Copy S2.Range("IHB5")
S1.Range("B247:Y247").Copy S2.Range("IIB5")
S1.Range("B248:Y248").Copy S2.Range("IJB5")
S1.Range("B249:Y249").Copy S2.Range("IKB5")
S1.Range("B250:Y250").Copy S2.Range("ILB5")
S1.Range("B251:Y251").Copy S2.Range("IMB5")
S1.Range("B252:Y252").Copy S2.Range("INB5")
S1.Range("B253:Y253").Copy S2.Range("IOB5")
S1.Range("B254:Y254").Copy S2.Range("IPB5")
S1.Range("B255:Y255").Copy S2.Range("IQB5")
S1.Range("B256:Y256").Copy S2.Range("IRB5")
S1.Range("B257:Y257").Copy S2.Range("ISB5")
S1.Range("B258:Y258").Copy S2.Range("ITB5")
S1.Range("B259:Y259").Copy S2.Range("IUB5")
S1.Range("B260:Y260").Copy S2.Range("IVB5")
S1.Range("B261:Y261").Copy S2.Range("IWB5")
S1.Range("B262:Y262").Copy S2.Range("IXB5")
S1.Range("B263:Y263").Copy S2.Range("IYB5")
S1.Range("B264:Y264").Copy S2.Range("IZB5")
S1.Range("B265:Y265").Copy S2.Range("JAB5")
S1.Range("B266:Y266").Copy S2.Range("JBB5")
S1.Range("B267:Y267").Copy S2.Range("JCB5")
S1.Range("B268:Y268").Copy S2.Range("JDB5")
S1.Range("B269:Y269").Copy S2.Range("JEB5")
S1.Range("B270:Y270").Copy S2.Range("JFB5")
S1.Range("B271:Y271").Copy S2.Range("JGB5")
S1.Range("B272:Y272").Copy S2.Range("JHB5")
S1.Range("B273:Y273").Copy S2.Range("JIB5")
S1.Range("B274:Y274").Copy S2.Range("JJB5")
S1.Range("B275:Y275").Copy S2.Range("JKB5")
S1.Range("B276:Y276").Copy S2.Range("JLB5")
S1.Range("B277:Y277").Copy S2.Range("JMB5")
S1.Range("B278:Y278").Copy S2.Range("JNB5")
S1.Range("B279:Y279").Copy S2.Range("JOB5")
S1.Range("B280:Y280").Copy S2.Range("JPB5")
S1.Range("B281:Y281").Copy S2.Range("JQB5")
S1.Range("B282:Y282").Copy S2.Range("JRB5")
S1.Range("B283:Y283").Copy S2.Range("JSB5")
S1.Range("B284:Y284").Copy S2.Range("JTB5")
S1.Range("B285:Y285").Copy S2.Range("JUB5")
S1.Range("B286:Y286").Copy S2.Range("JVB5")
S1.Range("B287:Y287").Copy S2.Range("JWB5")
S1.Range("B288:Y288").Copy S2.Range("JXB5")
S1.Range("B289:Y289").Copy S2.Range("JYB5")
S1.Range("B290:Y290").Copy S2.Range("JZB5")
S1.Range("B291:Y291").Copy S2.Range("KAB5")
S1.Range("B292:Y292").Copy S2.Range("KBB5")
S1.Range("B293:Y293").Copy S2.Range("KCB5")
S1.Range("B294:Y294").Copy S2.Range("KDB5")
S1.Range("B295:Y295").Copy S2.Range("KEB5")
S1.Range("B296:Y296").Copy S2.Range("KFB5")
S1.Range("B297:Y297").Copy S2.Range("KGB5")
S1.Range("B298:Y298").Copy S2.Range("KHB5")
S1.Range("B299:Y299").Copy S2.Range("KIB5")
S1.Range("B300:Y300").Copy S2.Range("KJB5")
S1.Range("B301:Y301").Copy S2.Range("KKB5")
S1.Range("B302:Y302").Copy S2.Range("KLB5")
S1.Range("B303:Y303").Copy S2.Range("KMB5")
S1.Range("B304:Y304").Copy S2.Range("KNB5")
S1.Range("B305:Y305").Copy S2.Range("KOB5")
S1.Range("B306:Y306").Copy S2.Range("KPB5")
S1.Range("B307:Y307").Copy S2.Range("KQB5")
S1.Range("B308:Y308").Copy S2.Range("KRB5")
S1.Range("B309:Y309").Copy S2.Range("KSB5")
S1.Range("B310:Y310").Copy S2.Range("KTB5")
S1.Range("B311:Y311").Copy S2.Range("KUB5")
S1.Range("B312:Y312").Copy S2.Range("KVB5")
S1.Range("B313:Y313").Copy S2.Range("KWB5")
S1.Range("B314:Y314").Copy S2.Range("KXB5")
S1.Range("B315:Y315").Copy S2.Range("KYB5")
S1.Range("B316:Y316").Copy S2.Range("KZB5")
S1.Range("B317:Y317").Copy S2.Range("LAB5")
S1.Range("B318:Y318").Copy S2.Range("LBB5")
S1.Range("B319:Y319").Copy S2.Range("LCB5")
S1.Range("B320:Y320").Copy S2.Range("LDB5")
S1.Range("B321:Y321").Copy S2.Range("LEB5")
S1.Range("B322:Y322").Copy S2.Range("LFB5")
S1.Range("B323:Y323").Copy S2.Range("LGB5")
S1.Range("B324:Y324").Copy S2.Range("LHB5")
S1.Range("B325:Y325").Copy S2.Range("LIB5")
S1.Range("B326:Y326").Copy S2.Range("LJB5")
S1.Range("B327:Y327").Copy S2.Range("LKB5")
S1.Range("B328:Y328").Copy S2.Range("LLB5")
S1.Range("B329:Y329").Copy S2.Range("LMB5")
S1.Range("B330:Y330").Copy S2.Range("LNB5")
S1.Range("B331:Y331").Copy S2.Range("LOB5")
S1.Range("B332:Y332").Copy S2.Range("LPB5")
S1.Range("B333:Y333").Copy S2.Range("LQB5")
S1.Range("B334:Y334").Copy S2.Range("LRB5")
S1.Range("B335:Y335").Copy S2.Range("LSB5")
S1.Range("B336:Y336").Copy S2.Range("LTB5")
S1.Range("B337:Y337").Copy S2.Range("LUB5")
S1.Range("B338:Y338").Copy S2.Range("LVB5")
S1.Range("B339:Y339").Copy S2.Range("LWB5")
S1.Range("B340:Y340").Copy S2.Range("LXB5")
S1.Range("B341:Y341").Copy S2.Range("LYB5")
S1.Range("B342:Y342").Copy S2.Range("LZB5")
S1.Range("B343:Y343").Copy S2.Range("MAB5")
S1.Range("B344:Y344").Copy S2.Range("MBB5")
S1.Range("B345:Y345").Copy S2.Range("MCB5")
S1.Range("B346:Y346").Copy S2.Range("MDB5")
S1.Range("B347:Y347").Copy S2.Range("MEB5")
S1.Range("B348:Y348").Copy S2.Range("MFB5")
S1.Range("B349:Y349").Copy S2.Range("MGB5")
S1.Range("B350:Y350").Copy S2.Range("MHB5")
S1.Range("B351:Y351").Copy S2.Range("MIB5")
S1.Range("B352:Y352").Copy S2.Range("MJB5")
S1.Range("B353:Y353").Copy S2.Range("MKB5")
End Sub
