Please help me to for reduce coding for MACRO

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

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.

Michael M

Well-known Member
Joined
Oct 27, 2005
Messages
20,524
Office Version
  1. 2016
  2. 2013
  3. 2007
Platform
  1. Windows
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 !!!
 

Abhijeet Kharat

New Member
Joined
Apr 1, 2014
Messages
17
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
 

Abhijeet Kharat

New Member
Joined
Apr 1, 2014
Messages
17
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.001,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>

 

Abhijeet Kharat

New Member
Joined
Apr 1, 2014
Messages
17
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.001,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>

 

Forum statistics

Threads
1,136,304
Messages
5,674,973
Members
419,537
Latest member
ucatchy

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
Top