Please help me to for reduce coding for MACRO

A

Abhijeet Kharat

New Member
Joined
Apr 1, 2014
Messages
17
Sub Macro2()
ActiveCell.FormulaR1C1 = "=Sheet1!XFD2"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[-2]C[16379]"
Range("E5").Select
Sheets("A1").Select
Sheets("A1").Copy After:=Sheets(2)
Sheets("A1 (2)").Select
Sheets("A1 (2)").Name = "A2"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD3"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[-1]C[16379]"
Range("E5").Select
Sheets("A2").Select
Sheets("A2").Copy After:=Sheets(3)
Sheets("A2 (2)").Select
Sheets("A2 (2)").Name = "A3"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD4"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!RC[16379]"
Range("E5").Select
Sheets("A3").Select
Sheets("A3").Copy After:=Sheets(4)
Sheets("A3 (2)").Select
Sheets("A3 (2)").Name = "A4"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD5"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[16379]"
Range("E5").Select
Sheets("A4").Select
Sheets("A4").Copy After:=Sheets(5)
Sheets("A4 (2)").Select
Sheets("A4 (2)").Name = "A5"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD6"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C[16379]"
Range("E5").Select
Sheets("A5").Select
Sheets("A5").Copy After:=Sheets(6)
Sheets("A5 (2)").Select
Sheets("A5 (2)").Name = "A6"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD7"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[3]C[16379]"
Range("E5").Select
Sheets("A6").Select
Sheets("A6").Copy After:=Sheets(7)
Sheets("A6 (2)").Select
Sheets("A6 (2)").Name = "A7"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD8"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[16379]"
Range("E5").Select
Sheets("A7").Select
Sheets("A7").Copy After:=Sheets(8)
Sheets("A7 (2)").Select
Sheets("A7 (2)").Name = "A8"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD9"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[5]C[16379]"
Range("E5").Select
Sheets("A8").Select
Sheets("A8").Copy After:=Sheets(9)
Sheets("A8 (2)").Select
Sheets("A8 (2)").Name = "A9"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD10"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[6]C[16379]"
Range("E5").Select
Sheets("A9").Select
Sheets("A9").Copy After:=Sheets(10)
Sheets("A9 (2)").Select
Sheets("A9 (2)").Name = "A10"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD11"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[7]C[16379]"
Range("E5").Select
Sheets("A10").Select
Sheets("A10").Copy After:=Sheets(11)
Sheets("A10 (2)").Select
Sheets("A10 (2)").Name = "A11"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD12"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[8]C[16379]"
Range("E5").Select
Sheets("A11").Select
Sheets("A11").Copy After:=Sheets(12)
Sheets("A11 (2)").Select
Sheets("A11 (2)").Name = "A12"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD13"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[9]C[16379]"
Range("E5").Select
Sheets("A12").Select
Sheets("A12").Copy After:=Sheets(13)
Sheets("A12 (2)").Select
Sheets("A12 (2)").Name = "A13"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD14"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[10]C[16379]"
Range("E5").Select
Sheets("A13").Select
Sheets("A13").Copy After:=Sheets(14)
Sheets("A13 (2)").Select
Sheets("A13 (2)").Name = "A14"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD15"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[11]C[16379]"
Range("E5").Select
Sheets("A14").Select
Sheets("A14").Copy After:=Sheets(15)
Sheets("A14 (2)").Select
Sheets("A14 (2)").Name = "A15"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD16"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[12]C[16379]"
Range("E5").Select
Sheets("A15").Select
Sheets("A15").Copy After:=Sheets(16)
Sheets("A15 (2)").Select
Sheets("A15 (2)").Name = "A16"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD17"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[13]C[16379]"
Range("E5").Select
Sheets("A16").Select
Sheets("A16").Copy After:=Sheets(17)
Sheets("A16 (2)").Select
Sheets("A16 (2)").Name = "A17"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD18"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[14]C[16379]"
Range("E5").Select
Sheets("A17").Select
Sheets("A17").Copy After:=Sheets(18)
Sheets("A17 (2)").Select
Sheets("A17 (2)").Name = "A18"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD19"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[15]C[16379]"
Range("E5").Select
Sheets("A18").Select
Sheets("A18").Copy After:=Sheets(19)
Sheets("A18 (2)").Select
Sheets("A18 (2)").Name = "A19"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD20"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[16]C[16379]"
Range("E5").Select
Sheets("A19").Select
Sheets("A19").Copy After:=Sheets(20)
Sheets("A19 (2)").Select
Sheets("A19 (2)").Name = "A20"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD21"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[17]C[16379]"
Range("E5").Select
Sheets("A20").Select
Sheets("A20").Copy After:=Sheets(21)
Sheets("A20 (2)").Select
Sheets("A20 (2)").Name = "A21"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD22"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[18]C[16379]"
Range("E5").Select
Sheets("A21").Select
Sheets("A21").Copy After:=Sheets(22)
Sheets("A21 (2)").Select
Sheets("A21 (2)").Name = "A22"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD23"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[19]C[16379]"
Range("E5").Select
Sheets("A22").Select
Sheets("A22").Copy After:=Sheets(23)
Sheets("A22 (2)").Select
Sheets("A22 (2)").Name = "A23"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD24"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[20]C[16379]"
Range("E5").Select
Sheets("A23").Select
Sheets("A23").Copy After:=Sheets(24)
Sheets("A23 (2)").Select
Sheets("A23 (2)").Name = "A24"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD25"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[21]C[16379]"
Range("E5").Select
Sheets("A24").Select
Sheets("A24").Copy After:=Sheets(25)
Sheets("A24 (2)").Select
Sheets("A24 (2)").Name = "A25"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD26"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[22]C[16379]"
Range("E5").Select
Sheets("A25").Select
Sheets("A25").Copy After:=Sheets(26)
Sheets("A25 (2)").Select
Sheets("A25 (2)").Name = "A26"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD27"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[23]C[16379]"
Range("E5").Select
Sheets("A26").Select
Sheets("A26").Copy After:=Sheets(27)
Sheets("A26 (2)").Select
Sheets("A26 (2)").Name = "A27"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD28"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[24]C[16379]"
Range("E5").Select
Sheets("A27").Select
Sheets("A27").Copy After:=Sheets(28)
Sheets("A27 (2)").Select
Sheets("A27 (2)").Name = "A28"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD29"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[25]C[16379]"
Range("E5").Select
Sheets("A28").Select
Sheets("A28").Copy After:=Sheets(29)
Sheets("A28 (2)").Select
Sheets("A28 (2)").Name = "A29"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD30"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[26]C[16379]"
Range("E5").Select
Sheets("A29").Select
Sheets("A29").Copy After:=Sheets(30)
Sheets("A29 (2)").Select
Sheets("A29 (2)").Name = "A30"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD31"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[27]C[16379]"
Range("E5").Select
Sheets("A30").Select
Sheets("A30").Copy After:=Sheets(31)
Sheets("A30 (2)").Select
Sheets("A30 (2)").Name = "A31"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD32"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[28]C[16379]"
Range("E5").Select
Sheets("A31").Select
Sheets("A31").Copy After:=Sheets(32)
Sheets("A31 (2)").Select
Sheets("A31 (2)").Name = "A32"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD33"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[29]C[16379]"
Range("E5").Select
Sheets("A32").Select
Sheets("A32").Copy After:=Sheets(33)
Sheets("A32 (2)").Select
Sheets("A32 (2)").Name = "A33"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD34"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[30]C[16379]"
Range("E5").Select
Sheets("A33").Select
Sheets("A33").Copy After:=Sheets(34)
Sheets("A33 (2)").Select
Sheets("A33 (2)").Name = "A34"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD35"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[31]C[16379]"
Range("E5").Select
Sheets("A34").Select
Sheets("A34").Copy After:=Sheets(35)
Sheets("A34 (2)").Select
Sheets("A34 (2)").Name = "A35"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD36"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[32]C[16379]"
Range("E5").Select
Sheets("A35").Select
Sheets("A35").Copy After:=Sheets(36)
Sheets("A35 (2)").Select
Sheets("A35 (2)").Name = "A36"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD37"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[33]C[16379]"
Range("E5").Select
Sheets("A36").Select
Sheets("A36").Copy After:=Sheets(37)
Sheets("A36 (2)").Select
Sheets("A36 (2)").Name = "A37"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD38"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[34]C[16379]"
Range("E5").Select
Sheets("A37").Select
Sheets("A37").Copy After:=Sheets(38)
Sheets("A37 (2)").Select
Sheets("A37 (2)").Name = "A38"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD39"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[35]C[16379]"
Range("E5").Select
Sheets("A38").Select
Sheets("A38").Copy After:=Sheets(39)
Sheets("A38 (2)").Select
Sheets("A38 (2)").Name = "A39"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD40"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[36]C[16379]"
Range("E5").Select
Sheets("A39").Select
Sheets("A39").Copy After:=Sheets(40)
Sheets("A39 (2)").Select
Sheets("A39 (2)").Name = "A40"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD41"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[37]C[16379]"
Range("E5").Select
Sheets("A40").Select
Sheets("A40").Copy After:=Sheets(41)
Sheets("A40 (2)").Select
Sheets("A40 (2)").Name = "A41"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD42"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[38]C[16379]"
Range("E5").Select
Sheets("A41").Select
Sheets("A41").Copy After:=Sheets(42)
Sheets("A41 (2)").Select
Sheets("A41 (2)").Name = "A42"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD43"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[39]C[16379]"
Range("E5").Select
Sheets("A42").Select
Sheets("A42").Copy After:=Sheets(43)
Sheets("A42 (2)").Select
Sheets("A42 (2)").Name = "A43"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD44"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[40]C[16379]"
Range("E5").Select
Sheets("A43").Select
Sheets("A43").Copy After:=Sheets(44)
Sheets("A43 (2)").Select
Sheets("A43 (2)").Name = "A44"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD45"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[41]C[16379]"
Range("E5").Select
Sheets("A44").Select
Sheets("A44").Copy After:=Sheets(45)
Sheets("A44 (2)").Select
Sheets("A44 (2)").Name = "A45"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD46"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[42]C[16379]"
Range("E5").Select
Sheets("A45").Select
Sheets("A45").Copy After:=Sheets(46)
Sheets("A45 (2)").Select
Sheets("A45 (2)").Name = "A46"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD47"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[43]C[16379]"
Range("E5").Select
Sheets("A46").Select
Sheets("A46").Copy After:=Sheets(47)
Sheets("A46 (2)").Select
Sheets("A46 (2)").Name = "A47"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD48"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[44]C[16379]"
Range("E5").Select
Sheets("A47").Select
Sheets("A47").Copy After:=Sheets(48)
Sheets("A47 (2)").Select
Sheets("A47 (2)").Name = "A48"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD49"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[45]C[16379]"
Range("E5").Select
Sheets("A48").Select
Sheets("A48").Copy After:=Sheets(49)
Sheets("A48 (2)").Select
Sheets("A48 (2)").Name = "A49"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD50"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[46]C[16379]"
Range("E5").Select
Sheets("A49").Select
Sheets("A49").Copy After:=Sheets(50)
Sheets("A49 (2)").Select
Sheets("A49 (2)").Name = "A50"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD51"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[47]C[16379]"
Range("E5").Select
Sheets("A50").Select
Sheets("A50").Copy After:=Sheets(51)
Sheets("A50 (2)").Select
Sheets("A50 (2)").Name = "A51"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD52"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[48]C[16379]"
Range("E5").Select
Sheets("A51").Select
Sheets("A51").Copy After:=Sheets(52)
Sheets("A51 (2)").Select
Sheets("A51 (2)").Name = "A52"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD53"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[49]C[16379]"
Range("E5").Select
Sheets("A52").Select
Sheets("A52").Copy After:=Sheets(53)
Sheets("A52 (2)").Select
Sheets("A52 (2)").Name = "A53"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD54"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[50]C[16379]"
Range("E5").Select
Sheets("A53").Select
Sheets("A53").Copy After:=Sheets(54)
Sheets("A53 (2)").Select
Sheets("A53 (2)").Name = "A54"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD55"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[51]C[16379]"
Range("E5").Select
Sheets("A54").Select
Sheets("A54").Copy After:=Sheets(55)
Sheets("A54 (2)").Select
Sheets("A54 (2)").Name = "A55"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD56"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[52]C[16379]"
Range("E5").Select
Sheets("A55").Select
Sheets("A55").Copy After:=Sheets(56)
Sheets("A55 (2)").Select
Sheets("A55 (2)").Name = "A56"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD57"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[53]C[16379]"
Range("E5").Select
Sheets("A56").Select
Sheets("A56").Copy After:=Sheets(57)
Sheets("A56 (2)").Select
Sheets("A56 (2)").Name = "A57"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD58"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[54]C[16379]"
Range("E5").Select
Sheets("A57").Select
Sheets("A57").Copy After:=Sheets(58)
Sheets("A57 (2)").Select
Sheets("A57 (2)").Name = "A58"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD59"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[55]C[16379]"
Range("E5").Select
Sheets("A58").Select
Sheets("A58").Copy After:=Sheets(59)
Sheets("A58 (2)").Select
Sheets("A58 (2)").Name = "A59"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD60"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[56]C[16379]"
Range("E5").Select
Sheets("A59").Select
Sheets("A59").Copy After:=Sheets(60)
Sheets("A59 (2)").Select
Sheets("A59 (2)").Name = "A60"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD61"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[57]C[16379]"
Range("E5").Select
Sheets("A60").Select
Sheets("A60").Copy After:=Sheets(61)
Sheets("A60 (2)").Select
Sheets("A60 (2)").Name = "A61"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD62"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[58]C[16379]"
Range("E5").Select
Sheets("A61").Select
Sheets("A61").Copy After:=Sheets(62)
Sheets("A61 (2)").Select
Sheets("A61 (2)").Name = "A62"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD63"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[59]C[16379]"
Range("E5").Select
Sheets("A62").Select
Sheets("A62").Copy After:=Sheets(63)
Sheets("A62 (2)").Select
Sheets("A62 (2)").Name = "A63"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD64"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[60]C[16379]"
Range("E5").Select
Sheets("A63").Select
Sheets("A63").Copy After:=Sheets(64)
Sheets("A63 (2)").Select
Sheets("A63 (2)").Name = "A64"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD65"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[61]C[16379]"
Range("E5").Select
Sheets("A64").Select
Sheets("A64").Copy After:=Sheets(65)
Sheets("A64 (2)").Select
Sheets("A64 (2)").Name = "A65"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD66"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[62]C[16379]"
Range("E5").Select
Sheets("A65").Select
Sheets("A65").Copy After:=Sheets(66)
Sheets("A65 (2)").Select
Sheets("A65 (2)").Name = "A66"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD67"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[63]C[16379]"
Range("E5").Select
Sheets("A66").Select
Sheets("A66").Copy After:=Sheets(67)
Sheets("A66 (2)").Select
Sheets("A66 (2)").Name = "A67"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD68"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[64]C[16379]"
Range("E5").Select
Sheets("A67").Select
Sheets("A67").Copy After:=Sheets(68)
Sheets("A67 (2)").Select
Sheets("A67 (2)").Name = "A68"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD69"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[65]C[16379]"
Range("E5").Select
Sheets("A68").Select
Sheets("A68").Copy After:=Sheets(69)
Sheets("A68 (2)").Select
Sheets("A68 (2)").Name = "A69"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD70"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[66]C[16379]"
Range("E5").Select
Sheets("A69").Select
Sheets("A69").Copy After:=Sheets(70)
Sheets("A69 (2)").Select
Sheets("A69 (2)").Name = "A70"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD71"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[67]C[16379]"
Range("E5").Select
Sheets("A70").Select
Sheets("A70").Copy After:=Sheets(71)
Sheets("A70 (2)").Select
Sheets("A70 (2)").Name = "A71"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD72"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[68]C[16379]"
Range("E5").Select
Sheets("A71").Select
Sheets("A71").Copy After:=Sheets(72)
Sheets("A71 (2)").Select
Sheets("A71 (2)").Name = "A72"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD73"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[69]C[16379]"
Range("E5").Select
Sheets("A72").Select
Sheets("A72").Copy After:=Sheets(73)
Sheets("A72 (2)").Select
Sheets("A72 (2)").Name = "A73"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD74"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[70]C[16379]"
Range("E5").Select
Sheets("A73").Select
Sheets("A73").Copy After:=Sheets(74)
Sheets("A73 (2)").Select
Sheets("A73 (2)").Name = "A74"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD75"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[71]C[16379]"
Range("E5").Select
Sheets("A74").Select
Sheets("A74").Copy After:=Sheets(75)
Sheets("A74 (2)").Select
Sheets("A74 (2)").Name = "A75"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD76"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[72]C[16379]"
Range("E5").Select
Sheets("A75").Select
Sheets("A75").Copy After:=Sheets(76)
Sheets("A75 (2)").Select
Sheets("A75 (2)").Name = "A76"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD77"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[73]C[16379]"
Range("E5").Select
Sheets("A76").Select
Sheets("A76").Copy After:=Sheets(77)
Sheets("A76 (2)").Select
Sheets("A76 (2)").Name = "A77"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD78"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[74]C[16379]"
Range("E5").Select
Sheets("A77").Select
Sheets("A77").Copy After:=Sheets(78)
Sheets("A77 (2)").Select
Sheets("A77 (2)").Name = "A78"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD79"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[75]C[16379]"
Range("E5").Select
Sheets("A78").Select
Sheets("A78").Copy After:=Sheets(79)
Sheets("A78 (2)").Select
Sheets("A78 (2)").Name = "A79"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD80"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[76]C[16379]"
Range("E5").Select
Sheets("A79").Select
Sheets("A79").Copy After:=Sheets(80)
Sheets("A79 (2)").Select
Sheets("A79 (2)").Name = "A80"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD81"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[77]C[16379]"
Range("E5").Select
Sheets("A80").Select
Sheets("A80").Copy After:=Sheets(81)
Sheets("A80 (2)").Select
Sheets("A80 (2)").Name = "A81"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD82"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[78]C[16379]"
Range("E5").Select
Sheets("A81").Select
Sheets("A81").Copy After:=Sheets(82)
Sheets("A81 (2)").Select
Sheets("A81 (2)").Name = "A82"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD83"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[79]C[16379]"
Range("E5").Select
Sheets("A82").Select
Sheets("A82").Copy After:=Sheets(83)
Sheets("A82 (2)").Select
Sheets("A82 (2)").Name = "A83"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD84"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[80]C[16379]"
Range("E5").Select
Sheets("A83").Select
Sheets("A83").Copy After:=Sheets(84)
Sheets("A83 (2)").Select
Sheets("A83 (2)").Name = "A84"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD85"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[81]C[16379]"
Range("E5").Select
Sheets("A84").Select
Sheets("A84").Copy After:=Sheets(85)
Sheets("A84 (2)").Select
Sheets("A84 (2)").Name = "A85"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD86"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[82]C[16379]"
Range("E5").Select
Sheets("A85").Select
Sheets("A85").Copy After:=Sheets(86)
Sheets("A85 (2)").Select
Sheets("A85 (2)").Name = "A86"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD87"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[83]C[16379]"
Range("E5").Select
Sheets("A86").Select
Sheets("A86").Copy After:=Sheets(87)
Sheets("A86 (2)").Select
Sheets("A86 (2)").Name = "A87"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD88"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[84]C[16379]"
Range("E5").Select
Sheets("A87").Select
Sheets("A87").Copy After:=Sheets(88)
Sheets("A87 (2)").Select
Sheets("A87 (2)").Name = "A88"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD89"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[85]C[16379]"
Range("E5").Select
Sheets("A88").Select
Sheets("A88").Copy After:=Sheets(89)
Sheets("A88 (2)").Select
Sheets("A88 (2)").Name = "A89"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD90"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[86]C[16379]"
Range("E5").Select
Sheets("A89").Select
Sheets("A89").Copy After:=Sheets(90)
Sheets("A89 (2)").Select
Sheets("A89 (2)").Name = "A90"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD91"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[87]C[16379]"
Range("E5").Select
Sheets("A90").Select
Sheets("A90").Copy After:=Sheets(91)
Sheets("A90 (2)").Select
Sheets("A90 (2)").Name = "A91"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD92"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[88]C[16379]"
Range("E5").Select
Sheets("A91").Select
Sheets("A91").Copy After:=Sheets(92)
Sheets("A91 (2)").Select
Sheets("A91 (2)").Name = "A92"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD93"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[89]C[16379]"
Range("E5").Select
Sheets("A92").Select
Sheets("A92").Copy After:=Sheets(93)
Sheets("A92 (2)").Select
Sheets("A92 (2)").Name = "A93"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD94"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[90]C[16379]"
Range("E5").Select
Sheets("A93").Select
Sheets("A93").Copy After:=Sheets(94)
Sheets("A93 (2)").Select
Sheets("A93 (2)").Name = "A94"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD95"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[91]C[16379]"
Range("E5").Select
Sheets("A94").Select
Sheets("A94").Copy After:=Sheets(95)
Sheets("A94 (2)").Select
Sheets("A94 (2)").Name = "A95"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD96"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[92]C[16379]"
Range("E5").Select
Sheets("A95").Select
Sheets("A95").Copy After:=Sheets(96)
Sheets("A95 (2)").Select
Sheets("A95 (2)").Name = "A96"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD97"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[93]C[16379]"
Range("E5").Select
Sheets("A96").Select
Sheets("A96").Copy After:=Sheets(97)
Sheets("A96 (2)").Select
Sheets("A96 (2)").Name = "A97"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD98"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[94]C[16379]"
Range("E5").Select
Sheets("A97").Select
Sheets("A97").Copy After:=Sheets(98)
Sheets("A97 (2)").Select
Sheets("A97 (2)").Name = "A98"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD99"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[95]C[16379]"
Range("E5").Select
Sheets("A98").Select
Sheets("A98").Copy After:=Sheets(99)
Sheets("A98 (2)").Select
Sheets("A98 (2)").Name = "A99"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD100"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[96]C[16379]"
Range("E5").Select
Sheets("A99").Select
Sheets("A99").Copy After:=Sheets(100)
Sheets("A99 (2)").Select
Sheets("A99 (2)").Name = "A100"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD101"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[97]C[16379]"
Range("E5").Select
Sheets("A100").Select
Sheets("A100").Copy After:=Sheets(101)
Sheets("A100 (2)").Select
Sheets("A100 (2)").Name = "A101"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD102"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[98]C[16379]"
Range("E5").Select
Sheets("A101").Select
Sheets("A101").Copy After:=Sheets(102)
Sheets("A101 (2)").Select
Sheets("A101 (2)").Name = "A102"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD103"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[99]C[16379]"
Range("E5").Select
Sheets("A102").Select
Sheets("A102").Copy After:=Sheets(103)
Sheets("A102 (2)").Select
Sheets("A102 (2)").Name = "A103"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD104"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[100]C[16379]"
Range("E5").Select
Sheets("A103").Select
Sheets("A103").Copy After:=Sheets(104)
Sheets("A103 (2)").Select
Sheets("A103 (2)").Name = "A104"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD105"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[101]C[16379]"
Range("E5").Select
Sheets("A104").Select
Sheets("A104").Copy After:=Sheets(105)
Sheets("A104 (2)").Select
Sheets("A104 (2)").Name = "A105"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD106"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[102]C[16379]"
Range("E5").Select
Sheets("A105").Select
Sheets("A105").Copy After:=Sheets(106)
Sheets("A105 (2)").Select
Sheets("A105 (2)").Name = "A106"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD107"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[103]C[16379]"
Range("E5").Select
Sheets("A106").Select
Sheets("A106").Copy After:=Sheets(107)
Sheets("A106 (2)").Select
Sheets("A106 (2)").Name = "A107"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD108"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[104]C[16379]"
Range("E5").Select
Sheets("A107").Select
Sheets("A107").Copy After:=Sheets(108)
Sheets("A107 (2)").Select
Sheets("A107 (2)").Name = "A108"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD109"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[105]C[16379]"
Range("E5").Select
Sheets("A108").Select
Sheets("A108").Copy After:=Sheets(109)
Sheets("A108 (2)").Select
Sheets("A108 (2)").Name = "A109"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD110"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[106]C[16379]"
Range("E5").Select
Sheets("A109").Select
Sheets("A109").Copy After:=Sheets(110)
Sheets("A109 (2)").Select
Sheets("A109 (2)").Name = "A110"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD111"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[107]C[16379]"
Range("E5").Select
Sheets("A110").Select
Sheets("A110").Copy After:=Sheets(111)
Sheets("A110 (2)").Select
Sheets("A110 (2)").Name = "A111"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD112"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[108]C[16379]"
Range("E5").Select
Sheets("A111").Select
Sheets("A111").Copy After:=Sheets(112)
Sheets("A111 (2)").Select
Sheets("A111 (2)").Name = "A112"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD113"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[109]C[16379]"
Range("E5").Select
Sheets("A112").Select
Sheets("A112").Copy After:=Sheets(113)
Sheets("A112 (2)").Select
Sheets("A112 (2)").Name = "A113"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD114"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[110]C[16379]"
Range("E5").Select
Sheets("A113").Select
Sheets("A113").Copy After:=Sheets(114)
Sheets("A113 (2)").Select
Sheets("A113 (2)").Name = "A114"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD115"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[111]C[16379]"
Range("E5").Select
Sheets("A114").Select
Sheets("A114").Copy After:=Sheets(115)
Sheets("A114 (2)").Select
Sheets("A114 (2)").Name = "A115"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD116"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[112]C[16379]"
Range("E5").Select
Sheets("A115").Select
Sheets("A115").Copy After:=Sheets(116)
Sheets("A115 (2)").Select
Sheets("A115 (2)").Name = "A116"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD117"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[113]C[16379]"
Range("E5").Select
Sheets("A116").Select
Sheets("A116").Copy After:=Sheets(117)
Sheets("A116 (2)").Select
Sheets("A116 (2)").Name = "A117"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD118"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[114]C[16379]"
Range("E5").Select
Sheets("A117").Select
Sheets("A117").Copy After:=Sheets(118)
Sheets("A117 (2)").Select
Sheets("A117 (2)").Name = "A118"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD119"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[115]C[16379]"
Range("E5").Select
Sheets("A118").Select
Sheets("A118").Copy After:=Sheets(119)
Sheets("A118 (2)").Select
Sheets("A118 (2)").Name = "A119"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD120"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[116]C[16379]"
Range("E5").Select
Sheets("A119").Select
Sheets("A119").Copy After:=Sheets(120)
Sheets("A119 (2)").Select
Sheets("A119 (2)").Name = "A120"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD121"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[117]C[16379]"
Range("E5").Select
Sheets("A120").Select
Sheets("A120").Copy After:=Sheets(121)
Sheets("A120 (2)").Select
Sheets("A120 (2)").Name = "A121"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD122"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[118]C[16379]"
Range("E5").Select
Sheets("A121").Select
Sheets("A121").Copy After:=Sheets(122)
Sheets("A121 (2)").Select
Sheets("A121 (2)").Name = "A122"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD123"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[119]C[16379]"
Range("E5").Select
Sheets("A122").Select
Sheets("A122").Copy After:=Sheets(123)
Sheets("A122 (2)").Select
Sheets("A122 (2)").Name = "A123"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD124"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[120]C[16379]"
Range("E5").Select
Sheets("A123").Select
Sheets("A123").Copy After:=Sheets(124)
Sheets("A123 (2)").Select
Sheets("A123 (2)").Name = "A124"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD125"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[121]C[16379]"
Range("E5").Select
Sheets("A124").Select
Sheets("A124").Copy After:=Sheets(125)
Sheets("A124 (2)").Select
Sheets("A124 (2)").Name = "A125"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD126"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[122]C[16379]"
Range("E5").Select
Sheets("A125").Select
Sheets("A125").Copy After:=Sheets(126)
Sheets("A125 (2)").Select
Sheets("A125 (2)").Name = "A126"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD127"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[123]C[16379]"
Range("E5").Select
Sheets("A126").Select
Sheets("A126").Copy After:=Sheets(127)
Sheets("A126 (2)").Select
Sheets("A126 (2)").Name = "A127"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD128"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[124]C[16379]"
Range("E5").Select
Sheets("A127").Select
Sheets("A127").Copy After:=Sheets(128)
Sheets("A127 (2)").Select
Sheets("A127 (2)").Name = "A128"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD129"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[125]C[16379]"
Range("E5").Select
Sheets("A128").Select
Sheets("A128").Copy After:=Sheets(129)
Sheets("A128 (2)").Select
Sheets("A128 (2)").Name = "A129"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD130"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[126]C[16379]"
Range("E5").Select
Sheets("A129").Select
Sheets("A129").Copy After:=Sheets(130)
Sheets("A129 (2)").Select
Sheets("A129 (2)").Name = "A130"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD131"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[127]C[16379]"
Range("E5").Select
Sheets("A130").Select
Sheets("A130").Copy After:=Sheets(131)
Sheets("A130 (2)").Select
Sheets("A130 (2)").Name = "A131"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD132"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[128]C[16379]"
Range("E5").Select
Sheets("A131").Select
Sheets("A131").Copy After:=Sheets(132)
Sheets("A131 (2)").Select
Sheets("A131 (2)").Name = "A132"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD133"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[129]C[16379]"
Range("E5").Select
Sheets("A132").Select
Sheets("A132").Copy After:=Sheets(133)
Sheets("A132 (2)").Select
Sheets("A132 (2)").Name = "A133"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD134"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[130]C[16379]"
Range("E5").Select
Sheets("A133").Select
Sheets("A133").Copy After:=Sheets(134)
Sheets("A133 (2)").Select
Sheets("A133 (2)").Name = "A134"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!XFD135"
Range("E4").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Sheet1!R[131]C[16379]"
End Sub
 

Excel Facts

How can you automate Excel?
Press Alt+F11 from Windows Excel to open the Visual Basic for Applications (VBA) editor.
Sort by date Sort by votes
A couple of things you can do first.
Go through the code and remove Select.Selection
AND
Change .Formula R1C1 to .value wherever there is no formula required
Code: 
Range("E4").Select
Selection.NumberFormat = "General"

could be reduced to
Code: 
Range("E4").NumberFormat = "General"

And it might actually be easier to tell us what you are trying the achieve with the code, rather than recording it !!!
 
Upvote 0
Hi Michael,

Thanks for your reply!

I am using above recording for making multiple invoices from pulling data from report. It is difficult to explain in writing. But thanks a lot for your prompt reply.

Regards,
Abhijeet
 
Upvote 0
Hi Michael,

Can you please help me on this.

I want to apply US comma style as well Indian comma style for particular figures in One excel sheet.

Please refer below table for USD amount comma has been applied as per US style after every 3 Digits and for Amount in Rs. comma separator has been applied as per Indian comma Style.

(We don't want to used control panel option)

Sr.No.NameAmount in USDAmount In Rs.
1Sujit Verma100,000.00₹ 1,00,000.00
2Anirban Roy300,000.00₹ 15,75,000.00
3Anil Shetty250,000.00₹ 9,45,000.00
4Vikas Sharma6,000.00₹ 3,78,000.00

<tbody>
</tbody>

 
Upvote 0
To apply US comma style as well Indian comma style for particular figures in One excel sheet.

Hi Michael,

Please help me on this.

I want to apply US comma style as well Indian comma style for particular figures in One excel sheet.

Please refer below table for USD amount comma has been applied as per US style after every 3 Digits and for Amount in Rs. comma separator has been applied as per Indian comma Style.

(We don't want to used control panel option)

Sr.No.NameAmount in USDAmount In Rs.
1Sujit Verma100,000.00₹ 1,00,000.00
2Anirban Roy300,000.00₹ 15,75,000.00
3Anil Shetty250,000.00₹ 9,45,000.00
4Vikas Sharma6,000.00₹ 3,78,000.00

<tbody>
</tbody>

 
Upvote 0
You must log in or register to reply here.

Similar threads

L
  • Question
Variable Rows, Help Speeding Up
Replies
4
Views
314
kevin9999
K
L
  • Solved
VBA remove leading zeros
2
Replies
14
Views
954
Joe4
Joe4
P
  • Question
Help with Vba Code
Replies
3
Views
157
Coyotex3
C
C
  • Question
Loop/Repeat Macro
2
Replies
11
Views
369
kvsrinivasamurthy
K
C
  • Question
How to get my macro to stop at the last recognized line
Replies
6
Views
207
Coco1
C

Forum statistics

Threads
1,214,827
Messages
6,121,818
Members
449,049
Latest member
cybersurfer5000

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