Grazie Anthony47 fai pure con calma sempre se è fattibile intanto ho fatto una mega macro il lavoro di ore 2,30 lo fatto registrare dalla macro ,
x il fatto che dopo testambi mi spariscono tutti i riferimenti alla celle ,e alora
la seconda volta mi sono fatto furbo e ho fatto una mega macro che in 15 secondi mi rimette in ordine tutti i dati della mia tabella riassuntiva nel foglio Rit
anche se mi da riferimento errato lo correggo con la macro
ciao e grazie ancora
Sub riordina()
'
' riordina Macro
' Macro registrata il 23/05/2009 da Antonio
'
'
Range("C3").Select
ActiveCell.FormulaR1C1 = "=('D3'!RC[-1])"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=('Estra-0'!RC[-1])"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-0'!RC2)"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-1'!RC2)"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-2'!RC2)"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-3'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-3'!RC2)"
Range("G3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-4'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-4'!RC2)"
Range("H3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-5'!RC2)"
Range("I3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-6'!RC2)"
Range("J3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-7'!RC2)"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-8'!RC2)"
Range("L3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-9'!RC2)"
Range("M3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-10'!RC2)"
Range("N3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-11'!RC2)"
Range("O3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-12'!RC2)"
Range("P3").Select
ActiveWindow.SmallScroll ToRight:=7
ActiveCell.FormulaR1C1 = "=( 'Estra-12'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-12'!RC2)"
Range("Q3").Select
ActiveCell.FormulaR1C1 = "=( 'O3'!RC2)"
Range("P3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-13'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-13'!RC2)"
Range("Q3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-14'!RC2)"
Range("R3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-15'!RC2)"
Range("S3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-16'!RC2)"
Range("T3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-17'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-17'!RC2)"
Range("U3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-18'!RC2)"
Range("V3").Select
ActiveCell.FormulaR1C1 = "=( '19'!RC2)"
ActiveCell.FormulaR1C1 = "=('Estra-19'!RC2)"
ActiveCell.FormulaR1C1 = "=('Estra-19'!RC2)"
Range("W3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-20'!RC2)"
Range("X3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-21'!RC2)"
Range("Y3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-22'!RC2)"
Range("Z3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-23'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-23'!RC2)"
Range("AA3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-24'!RC2)"
Range("AB3").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-6
Sheets("Rit").Select
Range("C3:AA3").Select
Selection.AutoFill Destination:=Range("C3:AA92"), Type:=xlFillDefault
Range("C3:AA92").Select
Rows("92:92").Select
Selection.Replace What:="b92", Replacement:="c4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=12
Range("C92:AA92").Select
Selection.AutoFill Destination:=Range("C92:AA180"), Type:=xlFillDefault
Range("C92:AA180").Select
Rows("180:180").Select
Selection.Replace What:="c92", Replacement:="d5", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C180:AA180").Select
Selection.AutoFill Destination:=Range("C180:AA267"), Type:=xlFillDefault
Range("C180:AA267").Select
Rows("267:267").Select
Selection.Replace What:="d92", Replacement:="e6", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C267").Select
Sheets("Rit").Select
Range("C267:AA267").Select
Selection.AutoFill Destination:=Range("C267:AA353"), Type:=xlFillDefault
Range("C267:AA353").Select
Rows("353:353").Select
Selection.Replace What:="e92", Replacement:="f7", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C353:AA353").Select
Selection.AutoFill Destination:=Range("C353:AA438"), Type:=xlFillDefault
Range("C353:AA438").Select
ActiveWindow.SmallScroll Down:=-9
Rows("438:438").Select
Selection.Replace What:="f92", Replacement:="g8", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C438:AA438").Select
Selection.AutoFill Destination:=Range("C438:AA522"), Type:=xlFillDefault
Range("C438:AA522").Select
Rows("522:522").Select
Selection.Replace What:="g92", Replacement:="h9", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=3
Range("C522:AA522").Select
Selection.AutoFill Destination:=Range("C522:AA605"), Type:=xlFillDefault
Range("C522:AA605").Select
ActiveWindow.SmallScroll Down:=12
Rows("605:605").Select
Selection.Replace What:="h92", Replacement:="i10", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C605").Select
Sheets("Rit").Select
Range("C605:AA605").Select
Selection.AutoFill Destination:=Range("C605:AA687"), Type:=xlFillDefault
Range("C605:AA687").Select
ActiveWindow.SmallScroll Down:=9
Rows("687:687").Select
Selection.Replace What:="i92", Replacement:="j11", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C687:AA687").Select
Selection.AutoFill Destination:=Range("C687:AA768"), Type:=xlFillDefault
Range("C687:AA768").Select
ActiveWindow.SmallScroll Down:=12
Range("C768").Select
ActiveCell.FormulaR1C1 = "=('Estra-0'!R[-756]C[8])"
Rows("768:768").Select
Selection.Replace What:="j92", Replacement:="k12", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C768:AA768").Select
Selection.AutoFill Destination:=Range("C768:AA848"), Type:=xlFillDefault
Range("C768:AA848").Select
ActiveWindow.SmallScroll Down:=12
Rows("848:848").Select
Selection.Replace What:="k92", Replacement:="l13", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C848:AA848").Select
Selection.AutoFill Destination:=Range("C848:AA927"), Type:=xlFillDefault
Range("C848:AA927").Select
Rows("927:927").Select
Selection.Replace What:="l92", Replacement:="m14", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C927:AA927").Select
Selection.AutoFill Destination:=Range("C927:AA1005"), Type:=xlFillDefault
Range("C927:AA1005").Select
ActiveWindow.SmallScroll Down:=6
Rows("1005:1005").Select
Selection.Replace What:="m92", Replacement:="n15", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1005:AA1005").Select
Selection.AutoFill Destination:=Range("C1005:AA1082"), Type:=xlFillDefault
Range("C1005:AA1082").Select
Rows("1082:1082").Select
Selection.Replace What:="n92", Replacement:="o16", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Estra-0").Select
ActiveWindow.SmallScroll Down:=12
ActiveWindow.SmallScroll ToRight:=9
Sheets("Rit").Select
ActiveWindow.SmallScroll Down:=6
Range("C1082:AA1082").Select
Selection.AutoFill Destination:=Range("C1082:AA1158"), Type:=xlFillDefault
Range("C1082:AA1158").Select
ActiveWindow.SmallScroll Down:=9
Rows("1158:1158").Select
Selection.Replace What:="o92", Replacement:="p17", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1158:AA1158").Select
Selection.AutoFill Destination:=Range("C1158:AA1233"), Type:=xlFillDefault
Range("C1158:AA1233").Select
Rows("1233:1233").Select
Selection.Replace What:="p92", Replacement:="q18", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1233:AA1233").Select
Selection.AutoFill Destination:=Range("C1233:AA1307"), Type:=xlFillDefault
Range("C1233:AA1307").Select
ActiveWindow.SmallScroll Down:=9
Rows("1307:1307").Select
Selection.Replace What:="q92", Replacement:="r19", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1307:AA1307").Select
Selection.AutoFill Destination:=Range("C1307:AA1380"), Type:=xlFillDefault
Range("C1307:AA1380").Select
ActiveWindow.SmallScroll Down:=6
Rows("1380:1380").Select
Selection.Replace What:="r92", Replacement:="s20", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1380").Select
ActiveCell.FormulaR1C1 = "=('Estra-0'!R[-1360]C[16])"
Range("C1380:AA1380").Select
Selection.AutoFill Destination:=Range("C1380:AA1452"), Type:=xlFillDefault
Range("C1380:AA1452").Select
Rows("1452:1452").Select
Selection.Replace What:="s92", Replacement:="t21", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=9
Range("C1452:AA1452").Select
Selection.AutoFill Destination:=Range("C1452:AA1523"), Type:=xlFillDefault
Range("C1452:AA1523").Select
Rows("1523:1523").Select
Selection.Replace What:="t92", Replacement:="u22", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1523:AA1523").Select
Selection.AutoFill Destination:=Range("C1523:AA1593"), Type:=xlFillDefault
Range("C1523:AA1593").Select
ActiveWindow.SmallScroll Down:=9
Range("C1594").Select
ActiveWindow.SmallScroll Down:=3
Rows("1593:1593").Select
Selection.Replace What:="u92", Replacement:="v23", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1593:AA1593").Select
Selection.AutoFill Destination:=Range("C1593:AA1662"), Type:=xlFillDefault
Range("C1593:AA1662").Select
Rows("1662:1662").Select
Selection.Replace What:="v92", Replacement:="w24", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1662:AA1662").Select
Selection.AutoFill Destination:=Range("C1662:AA1730"), Type:=xlFillDefault
Range("C1662:AA1730").Select
Rows("1730:1730").Select
Selection.Replace What:="w92", Replacement:="x25", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=6
Range("C1730:AA1730").Select
Selection.AutoFill Destination:=Range("C1730:AA1797"), Type:=xlFillDefault
Range("C1730:AA1797").Select
ActiveWindow.SmallScroll Down:=12
Rows("1797:1797").Select
Selection.Replace What:="x92", Replacement:="y26", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1797:AA1797").Select
Selection.AutoFill Destination:=Range("C1797:AA1863"), Type:=xlFillDefault
Range("C1797:AA1863").Select
ActiveWindow.SmallScroll Down:=9
Rows("1863:1863").Select
Selection.Replace What:="y92", Replacement:="z27", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1863:AA1863").Select
Selection.AutoFill Destination:=Range("C1863:AA1928"), Type:=xlFillDefault
Range("C1863:AA1928").Select
Rows("1928:1928").Select
Selection.Replace What:="z92", Replacement:="aa28", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1928").Select
Sheets("Rit").Select
ActiveWindow.SmallScroll Down:=12
ActiveWindow.SmallScroll ToRight:=5
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-6
Range("C1928:AA1928").Select
Selection.AutoFill Destination:=Range("C1928:AA1992"), Type:=xlFillDefault
Range("C1928:AA1992").Select
ActiveWindow.SmallScroll Down:=-9
Range("C1993").Select
ActiveWindow.SmallScroll Down:=6
Rows("1992:1992").Select
Selection.Replace What:="aa92", Replacement:="ab29", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1992:AA1992").Select
Selection.AutoFill Destination:=Range("C1992:AA2055"), Type:=xlFillDefault
Range("C1992:AA2055").Select
Rows("2055:2055").Select
Selection.Replace What:="ab92", Replacement:="ac30", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=12
Range("C2055:AA2055").Select
Selection.AutoFill Destination:=Range("C2055:AA2117"), Type:=xlFillDefault
Range("C2055:AA2117").Select
Rows("2117:2117").Select
Selection.Replace What:="ac92", Replacement:="ad31", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2117:AA2117").Select
Selection.AutoFill Destination:=Range("C2117:AA2178"), Type:=xlFillDefault
Range("C2117:AA2178").Select
ActiveWindow.SmallScroll Down:=6
Rows("2178:2178").Select
Selection.Replace What:="ad92", Replacement:="ae32", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2178:AA2178").Select
Selection.AutoFill Destination:=Range("C2178:AA2238"), Type:=xlFillDefault
Range("C2178:AA2238").Select
ActiveWindow.SmallScroll Down:=-6
Rows("2238:2238").Select
Selection.Replace What:="ae92", Replacement:="af33", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2238:AA2238").Select
Selection.AutoFill Destination:=Range("C2238:AA2297"), Type:=xlFillDefault
Range("C2238:AA2297").Select
ActiveWindow.SmallScroll Down:=9
Rows("2297:2297").Select
Selection.Replace What:="af92", Replacement:="ag34", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2297:AA2297").Select
Selection.AutoFill Destination:=Range("C2297:AA2355"), Type:=xlFillDefault
Range("C2297:AA2355").Select
ActiveWindow.SmallScroll Down:=12
Rows("2355:2355").Select
Selection.Replace What:="ag92", Replacement:="ah35", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2355:AA2355").Select
Selection.AutoFill Destination:=Range("C2355:AA2412"), Type:=xlFillDefault
Range("C2355:AA2412").Select
ActiveWindow.SmallScroll Down:=12
Rows("2412:2412").Select
Selection.Replace What:="ah92", Replacement:="ai36", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2412:AA2412").Select
Selection.AutoFill Destination:=Range("C2412:AA2468"), Type:=xlFillDefault
Range("C2412:AA2468").Select
Rows("2468:2468").Select
Selection.Replace What:="ai92", Replacement:="aj37", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2468:AA2468").Select
Selection.AutoFill Destination:=Range("C2468:AA2523"), Type:=xlFillDefault
Range("C2468:AA2523").Select
Rows("2523:2523").Select
Selection.Replace What:="aj92", Replacement:="ak38", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2523:AA2523").Select
Selection.AutoFill Destination:=Range("C2523:AA2577"), Type:=xlFillDefault
Range("C2523:AA2577").Select
Rows("2577:2577").Select
Selection.Replace What:="ak92", Replacement:="al39", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Estra-0").Select
ActiveWindow.SmallScroll ToRight:=17
ActiveWindow.SmallScroll Down:=24
Sheets("Rit").Select
Range("C2577:AA2577").Select
Selection.AutoFill Destination:=Range("C2577:AA2630"), Type:=xlFillDefault
Range("C2577:AA2630").Select
ActiveWindow.SmallScroll Down:=6
Rows("2630:2630").Select
Selection.Replace What:="al92", Replacement:="am40", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2630:AA2630").Select
Selection.AutoFill Destination:=Range("C2630:AA2682"), Type:=xlFillDefault
Range("C2630:AA2682").Select
Rows("2682:2682").Select
Selection.Replace What:="am92", Replacement:="an41", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2682:AA2682").Select
Selection.AutoFill Destination:=Range("C2682:AA2733"), Type:=xlFillDefault
Range("C2682:AA2733").Select
Range("C2734").Select
ActiveWindow.SmallScroll Down:=-3
Rows("2733:2733").Select
Selection.Replace What:="an92", Replacement:="ao42", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=6
Range("C2733:AA2733").Select
Selection.AutoFill Destination:=Range("C2733:AA2783"), Type:=xlFillDefault
Range("C2733:AA2783").Select
Rows("2783:2783").Select
Selection.Replace What:="ao92", Replacement:="ap43", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2783:AA2783").Select
Selection.AutoFill Destination:=Range("C2783:AA2832"), Type:=xlFillDefault
Range("C2783:AA2832").Select
ActiveWindow.SmallScroll Down:=-9
Rows("2832:2832").Select
Selection.Replace What:="ap92", Replacement:="aq44", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=6
Range("C2832:AA2832").Select
Selection.AutoFill Destination:=Range("C2832:AA2880"), Type:=xlFillDefault
Range("C2832:AA2880").Select
ActiveWindow.SmallScroll Down:=-3
Rows("2880:2880").Select
Selection.Replace What:="aq92", Replacement:="ar45", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=3
Range("C2880:AA2880").Select
Selection.AutoFill Destination:=Range("C2880:AA2927"), Type:=xlFillDefault
Range("C2880:AA2927").Select
ActiveWindow.SmallScroll Down:=6
Rows("2927:2927").Select
Selection.Replace What:="ar92", Replacement:="as46", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2927:AA2927").Select
Selection.AutoFill Destination:=Range("C2927:AA2973"), Type:=xlFillDefault
Range("C2927:AA2973").Select
ActiveWindow.SmallScroll Down:=9
Rows("2974:2974").Select
Selection.Replace What:="as92", Replacement:="at47", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("2973:2973").Select
Selection.Replace What:="as92", Replacement:="at47", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("AA2973:AA2975").Select
ActiveWindow.ScrollColumn = 1
Range("C2973:AA2973").Select
Selection.AutoFill Destination:=Range("C2973:AA3018"), Type:=xlFillDefault
Range("C2973:AA3018").Select
ActiveWindow.SmallScroll Down:=12
Rows("3018:3018").Select
Selection.Replace What:="at92", Replacement:="au48", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3018:AA3018").Select
Selection.AutoFill Destination:=Range("C3018:AA3062"), Type:=xlFillDefault
Range("C3018:AA3062").Select
ActiveWindow.SmallScroll Down:=-6
Rows("3062:3062").Select
Selection.Replace What:="au92", Replacement:="av49", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3062:AA3062").Select
Selection.AutoFill Destination:=Range("C3062:AA3106"), Type:=xlFillDefault
Range("C3062:AA3106").Select
ActiveWindow.SmallScroll Down:=3
Rows("3105:3105").Select
Selection.Replace What:="av92", Replacement:="aw50", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Estra-0").Select
ActiveWindow.SmallScroll ToRight:=21
ActiveWindow.SmallScroll Down:=9
Sheets("Rit").Select
Range("C3105:AA3105").Select
Selection.AutoFill Destination:=Range("C3105:AA3147"), Type:=xlFillDefault
Range("C3105:AA3147").Select
Rows("3147:3147").Select
Selection.Replace What:="aw92", Replacement:="ax51", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3147:AA3147").Select
Selection.AutoFill Destination:=Range("C3147:AA3188"), Type:=xlFillDefault
Range("C3147:AA3188").Select
ActiveWindow.SmallScroll Down:=12
Rows("3188:3188").Select
Selection.Replace What:="ax92", Replacement:="ay52", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3188:AA3188").Select
Selection.AutoFill Destination:=Range("C3188:AA3228"), Type:=xlFillDefault
Range("C3188:AA3228").Select
ActiveWindow.SmallScroll Down:=6
Rows("3228:3228").Select
Selection.Replace What:="ay92", Replacement:="az53", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3228:AA3228").Select
Selection.AutoFill Destination:=Range("C3228:AA3267"), Type:=xlFillDefault
Range("C3228:AA3267").Select
Rows("3267:3267").Select
Selection.Replace What:="az92", Replacement:="ba54", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=9
Range("C3267:AA3267").Select
Selection.AutoFill Destination:=Range("C3267:AA3305"), Type:=xlFillDefault
Range("C3267:AA3305").Select
ActiveWindow.SmallScroll Down:=6
Rows("3305:3305").Select
Selection.Replace What:="ba92", Replacement:="bb55", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3305:AA3305").Select
Selection.AutoFill Destination:=Range("C3305:AA3342"), Type:=xlFillDefault
Range("C3305:AA3342").Select
Rows("3342:3342").Select
Selection.Replace What:="bb92", Replacement:="bc56", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3342:AA3342").Select
Selection.AutoFill Destination:=Range("C3342:AA3378"), Type:=xlFillDefault
Range("C3342:AA3378").Select
ActiveWindow.SmallScroll Down:=9
Rows("3378:3378").Select
Selection.Replace What:="bc92", Replacement:="bd57", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3378:AA3378").Select
Selection.AutoFill Destination:=Range("C3378:AA3413"), Type:=xlFillDefault
Range("C3378:AA3413").Select
Rows("3413:3413").Select
Selection.Replace What:="bd92", Replacement:="be58", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3413:AA3413").Select
Selection.AutoFill Destination:=Range("C3413:AA3447"), Type:=xlFillDefault
Range("C3413:AA3447").Select
Rows("3447:3447").Select
Selection.Replace What:="be92", Replacement:="bf59", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3447:AA3447").Select
Selection.AutoFill Destination:=Range("C3447:AA3480"), Type:=xlFillDefault
Range("C3447:AA3480").Select
ActiveWindow.SmallScroll Down:=-3
Rows("3480:3480").Select
Selection.Replace What:="bf92", Replacement:="bg60", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3480:AA3480").Select
Selection.AutoFill Destination:=Range("C3480:AA3512"), Type:=xlFillDefault
Range("C3480:AA3512").Select
ActiveWindow.SmallScroll Down:=6
Rows("3512:3512").Select
Selection.Replace What:="bg92", Replacement:="bh61", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3512").Select
Sheets("Rit").Select
Range("C3512:AA3512").Select
Selection.AutoFill Destination:=Range("C3512:AA3543"), Type:=xlFillDefault
Range("C3512:AA3543").Select
ActiveWindow.SmallScroll Down:=6
Rows("3543:3543").Select
Selection.Replace What:="bh92", Replacement:="bi62", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3543:AA3543").Select
Selection.AutoFill Destination:=Range("C3543:AA3573"), Type:=xlFillDefault
Range("C3543:AA3573").Select
ActiveWindow.SmallScroll Down:=9
Rows("3573:3573").Select
Selection.Replace What:="bi92", Replacement:="bj63", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3573:AA3573").Select
Selection.AutoFill Destination:=Range("C3573:AA3602"), Type:=xlFillDefault
Range("C3573:AA3602").Select
ActiveWindow.SmallScroll Down:=6
Rows("3602:3602").Select
Selection.Replace What:="bj92", Replacement:="bk64", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3602:AA3602").Select
Selection.AutoFill Destination:=Range("C3602:AA3630"), Type:=xlFillDefault
Range("C3602:AA3630").Select
ActiveWindow.SmallScroll Down:=9
Rows("3630:3630").Select
Selection.Replace What:="bk92", Replacement:="bl65", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3630:AA3630").Select
Selection.AutoFill Destination:=Range("C3630:AA3657"), Type:=xlFillDefault
Range("C3630:AA3657").Select
ActiveWindow.SmallScroll Down:=12
Rows("3657:3657").Select
Selection.Replace What:="bl92", Replacement:="bm66", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Rit").Select
ActiveWindow.SmallScroll Down:=3
Range("C3657:AA3657").Select
Selection.AutoFill Destination:=Range("C3657:AA3683"), Type:=xlFillDefault
Range("C3657:AA3683").Select
ActiveWindow.SmallScroll Down:=-6
Rows("3683:3683").Select
Selection.Replace What:="bm92", Replacement:="bn67", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3683:AA3683").Select
Selection.AutoFill Destination:=Range("C3683:AA3708"), Type:=xlFillDefault
Range("C3683:AA3708").Select
ActiveWindow.SmallScroll Down:=12
Rows("3708:3708").Select
Selection.Replace What:="bn92", Replacement:="bo68", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3708:AA3708").Select
Selection.AutoFill Destination:=Range("C3708:AA3732"), Type:=xlFillDefault
Range("C3708:AA3732").Select
Rows("3732:3732").Select
Selection.Replace What:="bo92", Replacement:="bp69", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3732:AA3732").Select
Selection.AutoFill Destination:=Range("C3732:AA3755"), Type:=xlFillDefault
Range("C3732:AA3755").Select
Rows("3755:3755").Select
Selection.Replace What:="bp92", Replacement:="bq70", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=3
Range("C3755:AA3755").Select
Selection.AutoFill Destination:=Range("C3755:AA3777"), Type:=xlFillDefault
Range("C3755:AA3777").Select
Range("C3778").Select
ActiveWindow.SmallScroll Down:=3
Rows("3777:3777").Select
Selection.Replace What:="bq92", Replacement:="br71", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3777:AA3777").Select
Selection.AutoFill Destination:=Range("C3777:AA3798"), Type:=xlFillDefault
Range("C3777:AA3798").Select
ActiveWindow.SmallScroll Down:=9
Rows("3798:3798").Select
Selection.Replace What:="br92", Replacement:="bs72", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3798:AA3798").Select
Selection.AutoFill Destination:=Range("C3798:AA3818"), Type:=xlFillDefault
Range("C3798:AA3818").Select
ActiveWindow.SmallScroll Down:=6
Rows("3818:3818").Select
Selection.Replace What:="bs92", Replacement:="bt73", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Estra-0").Select
ActiveWindow.SmallScroll ToRight:=19
ActiveWindow.SmallScroll Down:=21
Sheets("Rit").Select
Range("C3818:AA3818").Select
Selection.AutoFill Destination:=Range("C3818:AA3837"), Type:=xlFillDefault
Range("C3818:AA3837").Select
Rows("3837:3837").Select
Selection.Replace What:="bt92", Replacement:="bu74", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3837:AA3837").Select
Selection.AutoFill Destination:=Range("C3837:AA3855"), Type:=xlFillDefault
Range("C3837:AA3855").Select
ActiveWindow.SmallScroll Down:=9
Rows("3855:3855").Select
Selection.Replace What:="bu92", Replacement:="bv75", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3855:AA3855").Select
Selection.AutoFill Destination:=Range("C3855:AA3872"), Type:=xlFillDefault
Range("C3855:AA3872").Select
Rows("3872:3872").Select
Selection.Replace What:="bv92", Replacement:="bw76", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3872:AA3872").Select
Selection.AutoFill Destination:=Range("C3872:AA3888"), Type:=xlFillDefault
Range("C3872:AA3888").Select
ActiveWindow.SmallScroll Down:=9
Rows("3888:3888").Select
Selection.Replace What:="bw92", Replacement:="bx77", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3888:AA3888").Select
Selection.AutoFill Destination:=Range("C3888:AA3903"), Type:=xlFillDefault
Range("C3888:AA3903").Select
ActiveWindow.SmallScroll Down:=9
Range("C3904").Select
Cells.Replace What:="bx92", Replacement:="by78", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3903:AA3903").Select
Selection.AutoFill Destination:=Range("C3903:AA3917"), Type:=xlFillDefault
Range("C3903:AA3917").Select
ActiveWindow.SmallScroll Down:=9
Rows("3917:3917").Select
Selection.Replace What:="by92", Replacement:="bz79", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3917:AA3917").Select
Selection.AutoFill Destination:=Range("C3917:AA3930"), Type:=xlFillDefault
Range("C3917:AA3930").Select
ActiveWindow.SmallScroll Down:=9
Rows("3930:3930").Select
Selection.Replace What:="bz92", Replacement:="ca80", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Rit").Select
Range("C3930:AA3930").Select
Selection.AutoFill Destination:=Range("C3930:AA3942"), Type:=xlFillDefault
Range("C3930:AA3942").Select
ActiveWindow.SmallScroll Down:=15
Rows("3942:3942").Select
Selection.Replace What:="ca92", Replacement:="cb81", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3942:AA3942").Select
Selection.AutoFill Destination:=Range("C3942:AA3953"), Type:=xlFillDefault
Range("C3942:AA3953").Select
ActiveWindow.SmallScroll Down:=6
Rows("3953:3953").Select
Selection.Replace What:="cb92", Replacement:="cc82", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3953:AA3953").Select
Selection.AutoFill Destination:=Range("C3953:AA3963"), Type:=xlFillDefault
Range("C3953:AA3963").Select
ActiveWindow.SmallScroll Down:=6
Rows("3963:3963").Select
Selection.Replace What:="cc92", Replacement:="cd83", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3963:AA3963").Select
Selection.AutoFill Destination:=Range("C3963:AA3972"), Type:=xlFillDefault
Range("C3963:AA3972").Select
ActiveWindow.SmallScroll Down:=3
Rows("3972:3972").Select
Selection.Replace What:="cd92", Replacement:="ce84", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3972:AA3972").Select
Selection.AutoFill Destination:=Range("C3972:AA3980"), Type:=xlFillDefault
Range("C3972:AA3980").Select
ActiveWindow.SmallScroll Down:=6
Rows("3980:3980").Select
Selection.Replace What:="ce92", Replacement:="cf85", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3980:AA3980").Select
Selection.AutoFill Destination:=Range("C3980:AA3987"), Type:=xlFillDefault
Range("C3980:AA3987").Select
ActiveWindow.SmallScroll Down:=9
Rows("3987:3987").Select
Selection.Replace What:="cf92", Replacement:="cg86", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3987:AA3987").Select
Selection.AutoFill Destination:=Range("C3987:AA3993"), Type:=xlFillDefault
Range("C3987:AA3993").Select
ActiveWindow.SmallScroll Down:=6
Range("C3980").Select
Sheets("Rit").Select
ActiveWindow.SmallScroll Down:=3
Rows("3993:3993").Select
Selection.Replace What:="cg92", Replacement:="ch87", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3993").Select
Sheets("Estra-0").Select
ActiveWindow.ScrollColumn = 71
ActiveWindow.SmallScroll Down:=9
Sheets("Rit").Select
Range("C3993:AA3993").Select
Selection.AutoFill Destination:=Range("C3993:AA3998"), Type:=xlFillDefault
Range("C3993:AA3998").Select
ActiveWindow.SmallScroll Down:=9
Rows("3998:3998").Select
Selection.Replace What:="ch92", Replacement:="ci88", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3998").Select
Sheets("Rit").Select
Range("C3998:AA3998").Select
Selection.AutoFill Destination:=Range("C3998:AA4002"), Type:=xlFillDefault
Range("C3998:AA4002").Select
Rows("4002:4002").Select
Range("C3998:AA3998").Select
Selection.AutoFill Destination:=Range("C3998:AA4002"), Type:=xlFillDefault
Range("C3998:AA4002").Select
Rows("4002:4002").Select
Selection.Replace What:="ci92", Replacement:="cj89", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C4002").Select
Sheets("Rit").Select
Range("C4002:AA4002").Select
Selection.AutoFill Destination:=Range("C4002:AA4005"), Type:=xlFillDefault
Range("C4002:AA4005").Select
Rows("4005:4005").Select
Selection.Replace What:="cj92", Replacement:="ck90", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C4005:AA4005").Select
Selection.AutoFill Destination:=Range("C4005:AA4007"), Type:=xlFillDefault
Range("C4005:AA4007").Select
Range("C4006").Select
Sheets("Rit").Select
Rows("4007:4007").Select
Selection.Replace What:="ck92", Replacement:="cl91", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("L4008").Select
Sheets("Rit").Select
ActiveWorkbook.Save
End Sub