Sub Project_3_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 3_Periodic Table elements_EN

'   Updated: 28/11/25
'   Created by: Ariel R. Becerra (10/09/25)
'   Modified by: _________________
'   This file contains the code for your new ScienSolar project.
'   ==============================================================================
'   PROJECT CODE: 3
'
'   INTEGRATION INSTRUCTIONS:
'   Note 1: The project number (3) in the function name must match the entry in the CONFIG sheet project list. Update if necessary.
'   Note 2: This code will be integrated into the main VBA project to automate  project loading and execution.
'   Note 3: Generated formulas and values are limited to the first 30 columns.  Keep all project data within this range for optimal performance.
'
'   STEP-BY-STEP INTEGRATION: ==================
'    1. CONFIG Sheet Setup (for new projects):
'                                      - Navigate to the CONFIG sheet and add a consecutive number to the last row of the projects list (column C, from row 35)
'                                      - Add a descriptive project name in the corresponding language column
'                                      - Replace (if it doesn't match) the number in Sub Project_48 with the new number from the list
'    2. Numbering Validation:
'                                      - Ensure projects in the CONFIG sheet maintain ascending numerical order
'                                      - Only integers are allowed
'    3. VBA Editor Preparation:
'                                      - Open VBA Editor (Alt+F11 Windows / Fn+Option+F11 macOS)
'                                      - Close other workbooks to avoid accidental code placement
'                                      - In the Project Explorer, select an existing module with available space
'                                      - Alternatively, insert a new module (Insert -- > Module)
'    5. Code Implementation:
'                                      - Select all code in this file and copy it
'                                      - Paste at the end of the selected module's code (for new projects)
'                                      - Replace de old code with the new one (for existing projects). Verify the code
'    6. Project Testing:
'                                      - Return to the CONFIG sheet and click 'New Sheet'
'                                      - Select your project from the list and click '+Vector'
'                                      - Large projects require repeated '+Vector' button presses when loading.
'                                      - Verify successful loading in the new sheet
'   SUPPORT AND UPDATES: =====================
'    Visit www.sciensolar.com for latest updates and documentation
'    © ScienSolar - Advanced Solar Project Management
'   ==============================================================================
'
            Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1"
            Cells(m1 - 1, n1).Value = "0"
            Cells(m1 + 0, n1 + 0).FormulaR1C1 = "=IF(R[-1]C=""ENTIRE"",15,33)"
            Cells(m1 + 0, n1 + 1).FormulaR1C1 = "50"
            Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4"
            Cells(m1 + 0, n1 + 3).FormulaR1C1 = "800"
            Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8"
            Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8"
            Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (10/09/25)"
            Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4"
            Cells(m1 + 1, n1 + 3).FormulaR1C1 = "480"
            Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6"
            Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0"
            Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8"
            Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45"
            Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,2265625 s."
            Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4"
            Cells(m1 + 2, n1 + 3).FormulaR1C1 = "=100/R[5]C[21]"
            Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6"
            Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15"
            Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8"
            Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0"
            Cells(m1 + 3, n1 + 0).FormulaR1C1 = "E"
            Cells(m1 + 3, n1 + 1).FormulaR1C1 = "15"
            Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200"
            Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6"
            Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15"
       Cells(m1, n1 + 9).FormulaR1C1 = "HELP"
       Dim HELPtxt As String
       HELPtxt = "ELECTROSTATIC FIELD OF THE ELEMENTS OF THE PERIODIC TABLE." & Chr(10) & "" & Chr(10) & "The model calculates the electric field of atoms in the periodic table, both inside and outside of them, using classical physics and without considering the interaction between electrons or electrons with protons. Radii are calculated using Stepler's rules for quantum mechanics. Only the principal quantum number n is taken into account." & Chr(10) & _
"     " & Chr(10) & "CELL SETTINGS:" & Chr(10) & "" & Chr(10) & "A11 = insert the x coordinate" & Chr(10) & "B11 = insert the y coordinate" & Chr(10) & "C11 = insert the z coordinate" & Chr(10) & _
"     " & Chr(10) & "G18 = position of the first atom at the x coordinate" & Chr(10) & "G19 = position of the first atom at the y coordinate" & Chr(10) & _
"     G20 = position of the first atom at the z coordinate" & Chr(10) & "(for other atoms in similar cells at the bottom of the sheet, scroll down)" & Chr(10) & _
"     " & Chr(10) & "Field result at a point:" & Chr(10) & "" & Chr(10) & "Resulting Field:" & Chr(10) & "A12 = E_x;  B12 = E_y;  C12 = E_z;  G10 = E" & Chr(10) & "" & Chr(10) & "Field of the first nuclei: A30, B30, C30." & Chr(10) & _
"     Field of the first electron:  A48, B48, C48. " & Chr(10) & "The same for other nuclei and electrons."
       On Error Resume Next
       Cells(m1, n1 + 9).Comment.text text:=HELPtxt

      ' C—digo para recrear controles
       Dim ws As Worksheet
       Set ws = ThisWorkbook.ActiveSheet

       If m = 3 Then
           PatronW = ActiveSheet.Cells(1, 1).width
           PatronH = ActiveSheet.Cells(1, 1).height

             ' ComboBox
             Set dd = ws.DropDowns.Add(Left:=Range("D15").Left + Range("$D$15").width * 0, Top:=Range("$D$15").Top, width:=Range("$D$15").width * 2, height:=Range("$D$15").height * 1)
             With dd
                 .Placement = 2
                 .name = "Elements15"
                 .LinkedCell = "$G$16"
                 .AddItem "1 Hydrogen"
                 .AddItem "2 Helium"
                 .AddItem "3 Lithium"
                 .AddItem "4 Beryllium"
                 .AddItem "5 Boron"
                 .AddItem "6 Carbon"
                 .AddItem "7 Nitrogen"
                 .AddItem "8 Oxygen"
                 .AddItem "9 Fluorine"
                 .AddItem "10 Neon"
                 .AddItem "11 Sodium"
                 .AddItem "12 Magnesium"
                 .AddItem "13 Aluminum"
                 .AddItem "14 Silicon"
                 .AddItem "15 Phosphorus"
                 .AddItem "16 Sulfur"
                 .AddItem "17 Chlorine"
                 .AddItem "18 Argon"
                 .AddItem "19 Potassium"
                 .AddItem "20 Calcium"
                 .AddItem "21 Scandium"
                 .AddItem "22 Titanium"
                 .AddItem "23 Vanadium"
                 .AddItem "24 Chromium"
                 .AddItem "25 Manganese"
                 .AddItem "26 Iron"
                 .AddItem "27 Cobalt"
                 .AddItem "28 Nickel"
                 .AddItem "29 Copper"
                 .AddItem "30 Zinc"
                 .AddItem "31 Gallium"
                 .AddItem "32 Germanium"
                 .AddItem "33 Arsenic"
                 .AddItem "34 Selenium"
                 .AddItem "35 Bromine"
                 .AddItem "36 Krypton"
                 .AddItem "37 Rubidium"
                 .AddItem "38 Strontium"
                 .AddItem "39 Yttrium"
                 .AddItem "40 Zirconium"
                 .AddItem "41 Niobium"
                 .AddItem "42 Molybdenum"
                 .AddItem "43 Technetium"
                 .AddItem "44 Ruthenium"
                 .AddItem "45 Rhodium"
                 .AddItem "46 Palladium"
                 .AddItem "47 Silver"
                 .AddItem "48 Cadmium"
                 .AddItem "49 Indium"
                 .AddItem "50 Tin"
                 .AddItem "51 Antimony"
                 .AddItem "52 Tellurium"
                 .AddItem "53 Iodine"
                 .AddItem "54 Xenon"
                 .AddItem "55 Cesium"
                 .AddItem "56 Barium"
                 .AddItem "57 Lanthanum"
                 .AddItem "58 Cerium"
                 .AddItem "59 Praseodymium"
                 .AddItem "60 Neodymium"
                 .AddItem "61 Promethium"
                 .AddItem "62 Samarium"
                 .AddItem "63 Europium"
                 .AddItem "64 Gadolinium"
                 .AddItem "65 Terbium"
                 .AddItem "66 Dysprosium"
                 .AddItem "67 Holmium"
                 .AddItem "68 Erbium"
                 .AddItem "69 Thulium"
                 .AddItem "70 Ytterbium"
                 .AddItem "71 Lutetium"
                 .AddItem "72 Hafnium"
                 .AddItem "73 Tantalum"
                 .AddItem "74 Tungsten"
                 .AddItem "75 Rhenium"
                 .AddItem "76 Osmium"
                 .AddItem "77 Iridium"
                 .AddItem "78 Platinum"
                 .AddItem "79 Gold"
                 .AddItem "80 Mercury"
                 .AddItem "81 Thallium"
                 .AddItem "82 Lead"
                 .AddItem "83 Bismuth"
                 .AddItem "84 Polonium"
                 .AddItem "85 Astatine"
                 .AddItem "86 Radon"
                 .AddItem "87 Francium"
                 .AddItem "88 Radium"
                 .AddItem "89 Actinium"
                 .AddItem "90 Thorium"
                 .AddItem "91 Protactinium"
                 .AddItem "92 Uranium"
                 .AddItem "93 Neptunium"
                 .AddItem "94 Plutonium"
                 .AddItem "95 Americium"
                 .AddItem "96 Curium"
                 .AddItem "97 Berkelium"
                 .AddItem "98 Californium"
                 .AddItem "99 Einsteinium"
                 .AddItem "100 Fermium"
                 .AddItem "101 Mendelevium"
                 .AddItem "102 Nobelium"
                 .AddItem "103 Lawrencium"
                 .AddItem "104 Rutherfordium"
                 .AddItem "105 Dubnium"
                 .AddItem "106 Seaborgium"
                 .AddItem "107 Bohrium"
                 .AddItem "108 Hassium"
                 .AddItem "109 Meitnerium"
                 .AddItem "110 Darmstadtium"
                 .AddItem "111 Roentgenium"
                 .AddItem "112 Copernicium"
                 .AddItem "113 Nihonium"
                 .AddItem "114 Flerovium"
                 .AddItem "115 Moscovium"
                 .AddItem "116 Livermorium"
                 .AddItem "117 Tennessine"
                 .AddItem "118 Oganesson"
                 .ListFillRange = ""
                 .Value = 2
                 .Display3DShading = True
             End With
             Set dd = Nothing

             ' Button
             ws.Buttons.Add(Left:=Range("F15").Left + Range("$F$15").width * 0, Top:=Range("$F$15").Top, width:=Range("$F$15").width * 1, height:=Range("$F$15").height * 1).Select
             With Selection
               .name = "AddButt(15)[68](33)[50]1PT"
               .OnAction = "PTableRefresh"
               .text = "Refresh"
             End With

             ' ComboBox
             Set dd = ws.DropDowns.Add(Left:=Range("L8").Left + Range("$L$8").width * 0, Top:=Range("$L$8").Top, width:=Range("$L$8").width * 3.5, height:=Range("$L$8").height * 1)
             With dd
                 .Placement = 2
                 .name = "ViewType"
                 .LinkedCell = "$AB$19"
                 .AddItem "1. At a point in space"
                 .AddItem "2: In Cartesian coordinates"
                 .AddItem "3: In Fibonacci-spherical dist."
                 .AddItem "4. In cylindrical coordinates"
                 .AddItem "5. In spherical coordinates"
                 .ListFillRange = "$AB$20:$AB$24"
                 .Value = 1
                 .Display3DShading = True
             End With
             Set dd = Nothing

             ' Button
             ws.Buttons.Add(Left:=Range("O8").Left + Range("$O$8").width * 0.5, Top:=Range("$O$8").Top, width:=Range("$O$8").width * 1, height:=Range("$O$8").height * 1).Select
             With Selection
               .name = "FieldButton"
               .OnAction = "Rotate"
               .text = "" & ChrW(8629) & "  Field"
             End With

             ' Button
             ws.Buttons.Add(Left:=Range("G15").Left + Range("$G$15").width * 0, Top:=Range("$G$15").Top, width:=Range("$G$15").width * 1.5, height:=Range("$G$15").height * 1).Select
             With Selection
               .name = "AddButt(15)[68](33)[50]2PT"
               .OnAction = "PTableDuplicateAtom"
               .text = "Duplicate Atom"
             End With

             ' Button
             ws.Buttons.Add(Left:=Range("H15").Left + Range("$H$15").width * 0.5, Top:=Range("$H$15").Top, width:=Range("$H$15").width * 0.5, height:=Range("$H$15").height * 1).Select
             With Selection
               .name = "DelButt(15)[68](33)[50]3PT"
               .OnAction = "PTableDuplicateAtom"
               .text = "X"
             End With

             ' Opton button
             Set opt = ws.OptionButtons.Add(Left:=Range("R8").Left + Range("$R$8").width * 0, Top:=Range("$R$8").Top, width:=Range("$R$8").width * 0.5, height:=Range("$R$8").height * 1.5)
             opt.Caption = ""
             With opt
              .name = "YesOptionButt"
              .LinkedCell = "$T$8"
             End With
             Set opt = Nothing

             ' Opton button
             Set opt = ws.OptionButtons.Add(Left:=Range("S8").Left + Range("$S$8").width * 0, Top:=Range("$S$8").Top, width:=Range("$S$8").width * 0.5, height:=Range("$S$8").height * 1.5)
             opt.Caption = ""
             With opt
              .name = "NoOptionButt"
              .LinkedCell = "$T$8"
             End With
             Set opt = Nothing

             ' Button
             ws.Buttons.Add(Left:=Range("T8").Left + Range("$T$8").width * 0, Top:=Range("$T$8").Top, width:=Range("$T$8").width * 1, height:=Range("$T$8").height * 1).Select
             With Selection
               .name = "DelTableButt"
               .OnAction = "PTCleanTable"
               .text = "Clear data"
             End With

             ' Button
             ws.Buttons.Add(Left:=Range("H8").Left + Range("$H$8").width * 0, Top:=Range("$H$8").Top, width:=Range("$H$8").width * 1.5, height:=Range("$H$8").height * 1).Select
             With Selection
               .name = "RotElecButt"
               .OnAction = "PTRotateElectrons"
               .text = " " & ChrW(8634) & "  Electrons  " & ChrW(8630) & ""
             End With

             ' SpinButton
             Set spin = ws.Spinners.Add(Left:=Range("F8").Left + Range("$F$8").width * 0, Top:=Range("$F$8").Top, width:=Range("$F$8").width * 0.5, height:=Range("$F$8").height * 1)
             spin.name = "SpinnerB8L"
             spin.LinkedCell = "$F$8"
             spin.Min = 20
             spin.max = 30000
             spin.Value = 40
             spin.SmallChange = 2
             spin.Value = 40
             spin.OnAction = "Rotate"
             Set spin = Nothing

             ' SpinButton
             Set spin = ws.Spinners.Add(Left:=Range("G8").Left + Range("$G$8").width * 0, Top:=Range("$G$8").Top, width:=Range("$G$8").width * 0.5, height:=Range("$G$8").height * 1)
             spin.name = "SpinnerB8R"
             spin.LinkedCell = "$G$8"
             spin.Min = 1
             spin.max = 30000
             spin.Value = 10
             spin.SmallChange = 1
             spin.Value = 10
             spin.OnAction = "Rotate"
             Set spin = Nothing

             ' SpinButton
             Set spin = ws.Spinners.Add(Left:=Range("G31").Left + Range("$G$31").width * 0, Top:=Range("$G$31").Top, width:=Range("$G$31").width * 0.5, height:=Range("$G$31").height * 1)
             spin.name = "Spinner 1213"
             spin.LinkedCell = "$G$31"
             spin.Min = 0
             spin.max = 30000
             spin.Value = 0
             spin.SmallChange = 1
             spin.Value = 0
             spin.OnAction = "Rotate"
             Set spin = Nothing

             ' SpinButton
             Set spin = ws.Spinners.Add(Left:=Range("G30").Left + Range("$G$30").width * 0, Top:=Range("$G$30").Top, width:=Range("$G$30").width * 0.5, height:=Range("$G$30").height * 1)
             spin.name = "Spinner 1214"
             spin.LinkedCell = "$G$30"
             spin.Min = 0
             spin.max = 30000
             spin.Value = 0
             spin.SmallChange = 1
             spin.Value = 0
             spin.OnAction = "Rotate"
             Set spin = Nothing

       End If

          Dim p As Integer
          For p = 1 To 0
          If Range("A5").Value = "Next sub_i" Then Exit Sub
                 Application.Run "Project_3_" & p & "_EN", VecType, m, n, m1, n1 '
          Next p

      If m = m1 + 0 Then ' vector 7
            Cells(m + 3, n + -1).FormulaR1C1 = "1"
            Cells(m + 3, n + 0).FormulaR1C1 = "E"
            Cells(m + 3, n + 1).FormulaR1C1 = "15"
            Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m + 3, n + 3).FormulaR1C1 = "200"
            Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6"
            Cells(m + 3, n + 5).FormulaR1C1 = "15"
            Cells(m + 3, n + 9).FormulaR1C1 = "Vectors visually modified (magnitude unchanged). Adjust scale in  B8"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[12]C[25]=1,"""",IF(R[12]C[25]=2,R[14]C[24],IF(R[12]C[25]=3,R[15]C[24],IF(R[12]C[25]=4,R[16]C[24],IF(R[12]C[25]=5,R[17]C[24])))))"
            Cells(m + 4, n + 2).FormulaR1C1 = "Electric field of atoms."
            Cells(m + 4, n + 12).FormulaR1C1 = "The Coulombic Electrostatic Field of Atoms and Their Combinations"
            Cells(m + 4, n + 24).FormulaR1C1 = "Setup and Instructions"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "=IF(R[2]C[24]=1,RC[4] &""*""&RC[5] &""E-11"",RC[4] &""*""&RC[5] &""E+12"")"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 5, n + 2).FormulaR1C1 = "Adjust Vector Size:"
            Cells(m + 5, n + 4).FormulaR1C1 = "40"
            Cells(m + 5, n + 5).FormulaR1C1 = "10"
            Cells(m + 5, n + 8).FormulaR1C1 = "View of the field:"
            Cells(m + 5, n + 15).FormulaR1C1 = "Data:"
            Cells(m + 5, n + 16).FormulaR1C1 = "Yes"
            Cells(m + 5, n + 17).FormulaR1C1 = "No"
            Cells(m + 5, n + 18).FormulaR1C1 = "2"
            Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""E_*"")"
            Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""E_*"")"
            Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""E_*"")"
            Cells(m + 6, n + 2).FormulaR1C1 = "Total charges:"
            Cells(m + 6, n + 3).FormulaR1C1 = "=COUNTIF(C[-1],""E_*"")"
            Cells(m + 6, n + 4).FormulaR1C1 = "=""  E  "" & IF(R[1]C[20]=1,""(V/" & ChrW(197) & ")"",""(V/m)"")&"" ="""
            Cells(m + 6, n + 5).FormulaR1C1 = "=SQRT(R[3]C[-6]^2+R[3]C[-5]^2+R[3]C[-4]^2)"
            Cells(m + 6, n + 6).FormulaR1C1 = "=IF(R[10]C[20]=1,""   Edit the observation point in A11, B11, C11)"",IF(R[10]C[20]=2,""       Edit the parameters in SETTINGS (cells Y12 -AC14) -- >> "",IF(R[10]C[20]=3,""       Edit the parameters in SETTINGS (cell AA22) -- >> "",IF(R[10]C[20]=4,""      Edit the parameters in SETTINGS (cells Y14 - AA16) --- >> "",IF(R[10]C[20]=5,""       Edit the parameters in SETTINGS (cells Y15 - AA17) -- >> "","""")))))"
            Cells(m + 6, n + 14).FormulaR1C1 = "=IF(R[-1]C[4]=1,""      The data is extracted into a table starting with row 46."","""")"
            Cells(m + 6, n + 20).FormulaR1C1 = "/////////////////////////////////////////////////////// SETTINGS ///////////////////////////////////////////////"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 2).FormulaR1C1 = "Total atoms:"
            Cells(m + 7, n + 3).FormulaR1C1 = "=COUNTIF(C[-1],""E_0"")"
            Cells(m + 7, n + 4).FormulaR1C1 = "            k    ="
            Cells(m + 7, n + 5).FormulaR1C1 = "=IF(RC[19]=1,0.89875517923*(100000000000000000000),0.89875517923/RC[19])"
            Cells(m + 7, n + 20).FormulaR1C1 = "___________________________________"
            Cells(m + 7, n + 23).FormulaR1C1 = "        1 " & ChrW(197) & " ="
            Cells(m + 7, n + 24).FormulaR1C1 = "1"
            Cells(m + 7, n + 25).FormulaR1C1 = "       _______________________________"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "1"
            Cells(m + 8, n + 1).FormulaR1C1 = "1"
            Cells(m + 8, n + 2).FormulaR1C1 = "=""<< --- Enter (x, y, z)  "" & IF(R[-1]C[22]=1,""(in Angstrom " & ChrW(197) & ")"",""(in meters)"")"
            Cells(m + 8, n + 20).FormulaR1C1 = "PERIODIC"
            Cells(m + 8, n + 21).FormulaR1C1 = "|  Field Display Parameters:"
            Cells(m + 8, n + 25).FormulaR1C1 = "    Step:"
            Cells(m + 8, n + 26).FormulaR1C1 = "|      Move the coordinates:"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""<< --- Result (Ex, Ey, Ez)  "" & IF(R[-2]C[22]=1,""(V/" & ChrW(197) & ")"",""(m)"")"
            Cells(m + 9, n + 20).FormulaR1C1 = "TABLE"
            Cells(m + 9, n + 21).FormulaR1C1 = "|"
            Cells(m + 9, n + 22).FormulaR1C1 = "X_in -X_fin ="
            Cells(m + 9, n + 23).FormulaR1C1 = "=0*R[-2]C[1]"
            Cells(m + 9, n + 24).FormulaR1C1 = "=0*R[-2]C"
            Cells(m + 9, n + 25).FormulaR1C1 = "=0.2*R[-2]C[-1]"
            Cells(m + 9, n + 26).FormulaR1C1 = "|      by x:"
            Cells(m + 9, n + 27).FormulaR1C1 = "0"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "=IF(R[-5]C[18]=1,50,0)"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 20).FormulaR1C1 = "Hydrogen,Helium,Lithium,Beryllium,Boron,Carbon,Nitrogen,Oxygen,Fluorine,Neon,Sodium,Magnesium,Aluminum,Silicon,Phosphorus,Sulfur,Chlorine,Argon,Potassium,Calcium,Scandium,Titanium,Vanadium,Chromium,Manganese,Iron,Cobalt,Nickel,Copper,Zinc,Gallium,Germanium,Arsenic,Selenium,Bromine,Krypton,Rubidium,Strontium,Yttrium,Zirconium,Niobium,Molybdenum,Technetium,Ruthenium,Rhodium,Palladium,Silver,Cadmium,Indium,Tin,Antimony,Tellurium,Iodine,Xenon,Cesium,Barium, Lanthanum, Cerium, Prasedymium, Neodymium, Promecio,"
            Cells(m + 10, n + 21).FormulaR1C1 = "|"
            Cells(m + 10, n + 22).FormulaR1C1 = "Y_in -Y_fin ="
            Cells(m + 10, n + 23).FormulaR1C1 = "=-2.5*R[-3]C[1]"
            Cells(m + 10, n + 24).FormulaR1C1 = "=2.5*R[-3]C"
            Cells(m + 10, n + 25).FormulaR1C1 = "=0.3*R[-3]C[-1]"
            Cells(m + 10, n + 26).FormulaR1C1 = "|      by y:"
            Cells(m + 10, n + 27).FormulaR1C1 = "=0*R[-3]C[-3]"
            Cells(m + 11, n + -1).FormulaR1C1 = "4"
            Cells(m + 11, n + 0).FormulaR1C1 = "=IF(R[-6]C[18]=1,10,0)"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 20).FormulaR1C1 = "Samarium, Europium, Gadolinium, Terbium, Dysprosium, Holmium, Erbium, Thulium, Ytterbium, Lutetium, Hafnium, Tantalum, Tungsten, Rhenium, Osmium, Iridium, Platinum, Gold, Mercury, Thallium, Lead, Bismuth, Polonium, Astatine, Radon, Francium, Radium, Actinium, Thorium, Protactinium, Uranium, Neptunium, Plutonium, Americium, Curium, Berkelium, Californium, Einsteinium, Fermium, Mendelevium, Nobelium, Lawrencium, Rutherfordium, Dubnium, Seaborgium, Bohrium, Hassium, Meitnerium, Darmstadtium, Roentgenium, Copernicium, Nihonium, Flerovium, Moscovium, Livermorium, Tennessine, Oganesson,"
            Cells(m + 11, n + 21).FormulaR1C1 = "|"
            Cells(m + 11, n + 22).FormulaR1C1 = "Z_in -Z_fin ="
            Cells(m + 11, n + 23).FormulaR1C1 = "=-2*R[-4]C[1]"
            Cells(m + 11, n + 24).FormulaR1C1 = "=2*R[-4]C"
            Cells(m + 11, n + 25).FormulaR1C1 = "=0.2*R[-4]C[-1]"
            Cells(m + 11, n + 26).FormulaR1C1 = "|      by z:"
            Cells(m + 11, n + 27).FormulaR1C1 = "0"
            Cells(m + 3, n + 1).Interior.Color = "13998939"
            Cells(m + 3, n + 1).Font.Size = "14"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = "+         He"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 9 Then ' vector 6
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, ""-          "", ""+         "") &R[1]C[3]"
            Cells(m + 3, n + 1).FormulaR1C1 = "=R[1]C[4]*1.6E-19"
            Cells(m + 3, n + 2).FormulaR1C1 = "||||||||||||||||||||||||||||||||||||||"
            Cells(m + 3, n + 5).FormulaR1C1 = "=MID(R[-2]C[15]&R[-1]C[15],IFERROR(FIND(""|"", SUBSTITUTE(R[-2]C[15]&R[-1]C[15], "","",""|"",R[1]C-1)),0)+1,FIND("";"",SUBSTITUTE(R[-2]C[15]&R[-1]C[15], "","","";"",R[1]C))-IFERROR(FIND(""|"", SUBSTITUTE(R[-2]C[15]&R[-1]C[15], "","",""|"",R[1]C-1)),0)-1)"
            Cells(m + 3, n + 20).FormulaR1C1 = "|1,H,1,|2,He,2,"
            Cells(m + 3, n + 21).FormulaR1C1 = "|"
            Cells(m + 3, n + 22).FormulaR1C1 = "rho_i -rho_f ="
            Cells(m + 3, n + 23).FormulaR1C1 = "=1.5*R[-5]C[1]"
            Cells(m + 3, n + 24).FormulaR1C1 = "1.5"
            Cells(m + 3, n + 25).FormulaR1C1 = "=0.3*R[-5]C[-1]"
            Cells(m + 3, n + 26).FormulaR1C1 = "|         Color:"
            Cells(m + 3, n + 27).FormulaR1C1 = "=10/(R[-5]C[-3])"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "=9"
            Cells(m + 4, n + 2).FormulaR1C1 = "Symbol:"
            Cells(m + 4, n + 3).FormulaR1C1 = "=MID(R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[26]C[1]+1,R[27]C[1]-R[26]C[1]-1)"
            Cells(m + 4, n + 4).FormulaR1C1 = "         Z ="
            Cells(m + 4, n + 5).FormulaR1C1 = "2"
            Cells(m + 4, n + 6).FormulaR1C1 = "=IF(R[1]C[-3]<RC[-1],""< - Change element, or increase"" &RC[-1]-R[1]C[-3] & ""  electron(s) using the Refresh button"",IF(R[1]C[-3]>RC[-1],""< - Change element, or remove "" &R[1]C[-3]-RC[-1] & "" electron(s) using the Refresh button."",""""))"
            Cells(m + 4, n + 20).FormulaR1C1 = "|3,Li,2,1,|4,Be,2,2,|5,B,2,3,|6,C,2,4,|7,N,2,5,|8,O,2,6,|9,F,2,7,|10,Ne,2,8,"
            Cells(m + 4, n + 21).FormulaR1C1 = "|"
            Cells(m + 4, n + 22).FormulaR1C1 = "phi_i -phi_f ="
            Cells(m + 4, n + 23).FormulaR1C1 = "0"
            Cells(m + 4, n + 24).FormulaR1C1 = "360"
            Cells(m + 4, n + 25).FormulaR1C1 = "10"
            Cells(m + 4, n + 26).FormulaR1C1 = "|      (in AD15 goes the magnitude "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 5, n + 2).FormulaR1C1 = "Electrons:"
            Cells(m + 5, n + 3).FormulaR1C1 = "=COUNTIF(C[-1],R[-1]C&R[-2]C[-4]&""_*"")+COUNTIF(C[-1],R[-1]C&""_r_ion"")"
            Cells(m + 5, n + 5).FormulaR1C1 = "=IF(R[-1]C>RC[-2],R[-1]C[-2]&"" +""&ABS(R[-1]C-RC[-2]),IF(R[-1]C<RC[-2],R[-1]C[-2]&"" -""&ABS(R[-1]C-RC[-2]),""""))"
            Cells(m + 5, n + 20).FormulaR1C1 = "|11,Na,2,8,1,|12,Mg,2,8,2,|13,Al,2,8,3,|14,Si,2,8,4,|15,P,2,8,5,|16,S,2,8,6,|17,Cl,2,8,7,|18,Ar,2,8,8,"
            Cells(m + 5, n + 21).FormulaR1C1 = "|"
            Cells(m + 5, n + 22).FormulaR1C1 = "theta_i -theta_f ="
            Cells(m + 5, n + 23).FormulaR1C1 = "0"
            Cells(m + 5, n + 24).FormulaR1C1 = "180"
            Cells(m + 5, n + 25).FormulaR1C1 = "10"
            Cells(m + 5, n + 26).FormulaR1C1 = "|         of the largest vector)."
            Cells(m + 6, n + 2).FormulaR1C1 = "Position x,y,z of the atom:"
            Cells(m + 6, n + 4).FormulaR1C1 = "=""x ""&IF(R10C26=1,""( " & ChrW(197) & " )"",""( m )"") &""  ="""
            Cells(m + 6, n + 5).FormulaR1C1 = "0"
            Cells(m + 6, n + 20).FormulaR1C1 = "|19,K,2,8,8,1,|20,Ca,2,8,8,2,|21,Sc,2,8,9,2,|22,Ti,2,8,10,2,|23,V,2,8,11,2,|24,Cr,2,8,13,1,|25,Mn,2,8,13,2,|26,Fe,2,8,14,2,|27,Co,2,8,15,2,|28,Ni,2,8,16,2,|29,Cu,2,8,18,1,|30,Zn,2,8,18,2,|31,Ga,2,8,18,3,|32,Ge,2,8,18,4,|33,As,2,8,18,5,|34,Se,2,8,18,6,|35,Br,2,8,18,7,|36,Kr,2,8,18,8,"
            Cells(m + 6, n + 21).FormulaR1C1 = "|__________________________________________________________________________________"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R18C7"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R19C7"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R20C7"
            Cells(m + 7, n + 3).FormulaR1C1 = "0"
            Cells(m + 7, n + 4).FormulaR1C1 = "=""y ""&IF(R10C26=1,""( " & ChrW(197) & " )"",""( m )"") &""  ="""
            Cells(m + 7, n + 5).FormulaR1C1 = "0"
            Cells(m + 7, n + 20).FormulaR1C1 = "|37,Rb,2,8,18,8,1,|38,Sr,2,8,18,8,2,|39,Y,2,8,18,9,2,|40,Zr,2,8,18,10,2,|41,Nb,2,8,18,12,1,|42,Mo,2,8,18,13,1,|43,Tc,2,8,18,13,2,|44,Ru,2,8,18,15,1,|45,Rh,2,8,18,16,1,|46,Pd,2,8,18,18,,|47,Ag,2,8,18,18,1,|48,Cd,2,8,18,18,2,|49,In,2,8,18,18,3,|50,Sn,2,8,18,18,4,|51,Sb,2,8,18,18,5,|52,Te,2,8,18,18,6,|53,I,2,8,18,18,7,|54,Xe,2,8,18,18,8,"
            Cells(m + 7, n + 21).FormulaR1C1 = "|     Distribution of electrons"
            Cells(m + 7, n + 24).FormulaR1C1 = "|"
            Cells(m + 7, n + 25).FormulaR1C1 = "Views:"
            Cells(m + 7, n + 26).FormulaR1C1 = "1"
            Cells(m + 8, n + 4).FormulaR1C1 = "=""z ""&IF(R10C26=1,""( " & ChrW(197) & " )"",""( m )"") &""  ="""
            Cells(m + 8, n + 5).FormulaR1C1 = "0"
            Cells(m + 8, n + 20).FormulaR1C1 = "|55,Cs,2,8,18,18,8,1,|56,Ba,2,8,18,18,8,2,|57,La,2,8,18,18,9,2,|58,Ce,2,8,18,19,9,2,|59,Pr,2,8,18,21,8,2,|60,Nd,2,8,18,22,8,2,|61,Pm,2,8,18,23,8,2,|62,Sm,2,8,18,24,8,2,|63,Eu,2,8,18,25,8,2,|64,Gd,2,8,18,25,9,2,|65,Tb,2,8,18,27,8,2,|66,Dy,2,8,18,28,8,2,|67,Ho,2,8,18,29,8,2,|68,Er,2,8,18,30,8,2,|69,Tm,2,8,18,31,8,2,|70,Yb,2,8,18,32,8,2,|71,Lu,2,8,18,32,9,2,|72,Hf,2,8,18,32,10,2,|73,Ta,2,8,18,32,11,2,|74,W,2,8,18,32,12,2,|75,Re,2,8,18,32,13,2,|76,Os,2,8,18,32,14,2,|77,Ir,2,8,18,32,15,2,|78,Pt,2,8,18,32,17,1,|79,Au,2,8,18,32,18,1,|80,Hg,2,8,18,32,18,2,|81,Tl,2,8,18,32,18,3,|82,Pb,2,8,18,32,18,4,|83,Bi,2,8,18,32,18,5,|84,Po,2,8,18,32,18,6,|85,At,2,8,18,32,18,7,|86,Rn,2,8,18,32,18,8,"
            Cells(m + 8, n + 21).FormulaR1C1 = "|    in the atom (spherical distribution"
            Cells(m + 8, n + 24).FormulaR1C1 = "|"
            Cells(m + 8, n + 26).FormulaR1C1 = "1. At a point in space"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "Distrib. of electrons:"
            Cells(m + 9, n + 4).FormulaR1C1 = "   Radius:"
            Cells(m + 9, n + 5).FormulaR1C1 = "Value:"
            Cells(m + 9, n + 20).FormulaR1C1 = "|87,Fr,2,8,18,32,18,8,1,|88,Ra,2,8,18,32,18,8,2,|89,Ac,2,8,18,32,18,9,2,|90,Th,2,8,18,32,18,10,2,|91,Pa,2,8,18,32,20,9,2,|92,U,2,8,18,32,21,9,2,|93,Np,2,8,18,32,22,9,2,|94,Pu,2,8,18,32,24,8,2,|95,Am,2,8,18,32,25,8,2,|96,Cm,2,8,18,32,25,9,2,|97,Bk,2,8,18,32,27,8,2,|98,Cf,2,8,18,32,28,8,2,|99,Es,2,8,18,32,29,8,2,|100,Fm,2,8,18,32,30,8,2,|101,Md,2,8,18,32,31,8,2,|102,No,2,8,18,32,32,8,2,|103,Lr,2,8,18,32,32,8,3,|104,Rf,2,8,18,32,32,10,2,|105,Db,2,8,18,32,32,11,2,|106,Sg,2,8,18,32,32,12,2,|107,Bh,2,8,18,32,32,13,2,|108,Hs,2,8,18,32,32,14,2,|109,Mt,2,8,18,32,32,15,2,|110,Ds,2,8,18,32,32,16,2,|111,Rg,2,8,18,32,32,17,2,|112,Cn,2,8,18,32,32,18,2,|113,Nh,2,8,18,32,32,18,3,|114,Fl,2,8,18,32,32,18,4,|115,Mc,2,8,18,32,32,18,5,|116,Lv,2,8,18,32,32,18,6,|117,Ts,2,8,18,32,32,18,7,|118,Og,2,8,18,32,32,18,8,"
            Cells(m + 9, n + 21).FormulaR1C1 = "|                   in A37, B37, C37):"
            Cells(m + 9, n + 24).FormulaR1C1 = "|"
            Cells(m + 9, n + 25).FormulaR1C1 = "=""o[""&R[-9]C&""]x=[""&R[-9]C[-2]&"";""&R[-9]C[-1]&""]o2[""&R[-8]C&""]y=[""&R[-8]C[-2]&"";""&R[-8]C[-1]&""]o3[""&R[-7]C&""]z=[""&R[-7]C[-2]&"";""&R[-7]C[-1]&""]color=[""&R[-6]C[2]&""]origin[cart.]=[""&R[-9]C[2]&"";""&R[-8]C[2]&"";""&R[-7]C[2]&""]FieldLayers[0]FieldLayersRange=[0;0]LayerThickness=[1]tfactor=0,008s"""
            Cells(m + 9, n + 26).FormulaR1C1 = "2: In Cartesian coordinates"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 2).FormulaR1C1 = "       Total :"
            Cells(m + 10, n + 3).FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
            Cells(m + 10, n + 4).FormulaR1C1 = "=R16C5&R15C1&""_r_ion"""
            Cells(m + 10, n + 5).FormulaR1C1 = "=IFERROR(VLOOKUP(0,R[1]C[-2]:R[7]C,3,FALSE),"""")"
            Cells(m + 10, n + 20).FormulaR1C1 = "|_________________________________________________________________________________"
            Cells(m + 10, n + 21).FormulaR1C1 = "|         Azimuth and polar ranges:"
            Cells(m + 10, n + 24).FormulaR1C1 = "|"
            Cells(m + 10, n + 25).FormulaR1C1 = "=""f[""&R[-7]C&""]r=[""&R[-7]C[-2]&"";""&R[-7]C[-1]&""]f2[""&R[-6]C&""]phi=[""&R[-6]C[-2]&"";""&R[-6]C[-1]&""]f3[""&R[-5]C&""]theta=[""&R[-5]C[-2]&"";""&R[-5]C[-1]&""]color=[""&R[-7]C[2]&""]origin[cart.]=[""&R[-10]C[2]&"";""&R[-9]C[2]&"";""&R[-8]C[2]&""]FieldLayers[0]FieldLayersRange=[0;0]LayerThickness=[1]tfactor=0,008s"""
            Cells(m + 10, n + 26).FormulaR1C1 = "3: In Fibonacci-spherical dist."
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "8"
            Cells(m + 11, n + 2).FormulaR1C1 = "       En n = 1:"
            Cells(m + 11, n + 3).FormulaR1C1 = "=IFERROR(VALUE(MID( R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[20]C[1]+1,R[21]C[1]-R[20]C[1]-1)),0)"
            Cells(m + 11, n + 4).FormulaR1C1 = "=R16C5&R15C1&""_r_1"""
            Cells(m + 11, n + 5).FormulaR1C1 = "=(1^2 * 0.529*R10C26) / R[10]C"
            Cells(m + 11, n + 6).FormulaR1C1 = "1s2"
            Cells(m + 11, n + 20).FormulaR1C1 = "|  Phi_ini ="
            Cells(m + 11, n + 21).FormulaR1C1 = "90"
            Cells(m + 11, n + 22).FormulaR1C1 = "Phi_fin ="
            Cells(m + 11, n + 23).FormulaR1C1 = "90"
            Cells(m + 11, n + 24).FormulaR1C1 = "|"
            Cells(m + 11, n + 25).FormulaR1C1 = "=""c[""&R[-8]C&""]rho=[""&R[-8]C[-2]&"";""&R[-8]C[-1]&""]c2[""&R[-7]C&""]phi=[""&R[-7]C[-2]&"";""&R[-7]C[-1]&""]c3[""&R[-9]C&""]z=[""&R[-9]C[-2]&"";""&R[-9]C[-1]&""]color=[""&R[-8]C[2]&""]origin[cart.]=[""&R[-11]C[2]&"";""&R[-10]C[2]&"";""&R[-9]C[2]&""]FieldLayers[0]FieldLayersRange=[0;0]LayerThickness=[1]tfactor=0,008s"""
            Cells(m + 11, n + 26).FormulaR1C1 = "4. In cylindrical coordinates"
            Cells(m + 3, n + 1).Interior.Color = "255"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 18 Then ' vector 5
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 2).FormulaR1C1 = "       En n = 2:"
            Cells(m + 3, n + 3).FormulaR1C1 = "=IF(R[-1]C=0,0,IFERROR(VALUE(MID( R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[20]C[1]+1,R[21]C[1]-R[20]C[1]-1)),0))"
            Cells(m + 3, n + 4).FormulaR1C1 = "=R16C5&R15C1&""_r_2"""
            Cells(m + 3, n + 5).FormulaR1C1 = "=(2^2 * 0.529*R10C26) / R[10]C"
            Cells(m + 3, n + 20).FormulaR1C1 = "|  Theta_ini="
            Cells(m + 3, n + 21).FormulaR1C1 = "0"
            Cells(m + 3, n + 22).FormulaR1C1 = "Theta_fin="
            Cells(m + 3, n + 23).FormulaR1C1 = "360"
            Cells(m + 3, n + 24).FormulaR1C1 = "|"
            Cells(m + 3, n + 25).FormulaR1C1 = "=""s[""&R[-9]C&""]r=[""&R[-9]C[-2]&"";""&R[-9]C[-1]&""]s2[""&R[-8]C&""]phi=[""&R[-8]C[-2]&"";""&R[-8]C[-1]&""]s3[""&R[-7]C&""]theta=[""&R[-7]C[-2]&"";""&R[-7]C[-1]&""]color=[""&R[-9]C[2]&""]origin[cart.]=[""&R[-12]C[2]&"";""&R[-11]C[2]&"";""&R[-10]C[2]&""]FieldLayers[0]FieldLayersRange=[0;0]LayerThickness=[1]tfactor=0,008s"""
            Cells(m + 3, n + 26).FormulaR1C1 = "5. In spherical coordinates"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "       En n = 3:"
            Cells(m + 4, n + 3).FormulaR1C1 = "=IF(R[-1]C=0,0,IFERROR(VALUE(MID( R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[20]C[1]+1,R[21]C[1]-R[20]C[1]-1)),0))"
            Cells(m + 4, n + 4).FormulaR1C1 = "=R16C5&R15C1&""_r_3"""
            Cells(m + 4, n + 5).FormulaR1C1 = "=(3^2 * 0.529*R10C26) / R[10]C"
            Cells(m + 4, n + 20).FormulaR1C1 = "/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "1"
            Cells(m + 5, n + 2).FormulaR1C1 = "       En n = 4:"
            Cells(m + 5, n + 3).FormulaR1C1 = "=IF(R[-1]C=0,0,IFERROR(VALUE(MID( R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[20]C[1]+1,R[21]C[1]-R[20]C[1]-1)),0))"
            Cells(m + 5, n + 4).FormulaR1C1 = "=R16C5&R15C1&""_r_4"""
            Cells(m + 5, n + 5).FormulaR1C1 = "=(4^2 * 0.529*R10C26) / R[10]C"
            Cells(m + 5, n + 21).FormulaR1C1 = "1. Set Up an Atom"
            Cells(m + 6, n + 2).FormulaR1C1 = "       En n = 5:"
            Cells(m + 6, n + 3).FormulaR1C1 = "=IF(R[-1]C=0,0,IFERROR(VALUE(MID( R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[20]C[1]+1,R[21]C[1]-R[20]C[1]-1)),0))"
            Cells(m + 6, n + 4).FormulaR1C1 = "=R16C5&R15C1&""_r_5"""
            Cells(m + 6, n + 5).FormulaR1C1 = "=(5^2 * 0.529*R10C26) / R[10]C"
            Cells(m + 6, n + 21).FormulaR1C1 = "            a)"
            Cells(m + 6, n + 22).FormulaR1C1 = "Select the atom from the list and press the Update button."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 7, n + 2).FormulaR1C1 = "       En n = 6:"
            Cells(m + 7, n + 3).FormulaR1C1 = "=IF(R[-1]C=0,0,IFERROR(VALUE(MID( R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[20]C[1]+1,R[21]C[1]-R[20]C[1]-1)),0))"
            Cells(m + 7, n + 4).FormulaR1C1 = "=R16C5&R15C1&""_r_6"""
            Cells(m + 7, n + 5).FormulaR1C1 = "=(6^2 * 0.529*R10C26) / R[10]C"
            Cells(m + 7, n + 21).FormulaR1C1 = "            c)"
            Cells(m + 7, n + 22).FormulaR1C1 = "Edit its position in space in G18, G19, and G20 for the first atom or in its "
            Cells(m + 8, n + 2).FormulaR1C1 = "       En n = 7:"
            Cells(m + 8, n + 3).FormulaR1C1 = "=IF(R[-1]C=0,0,IFERROR(VALUE(MID( R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[20]C[1]+1,R[21]C[1]-R[20]C[1]-1)),0))"
            Cells(m + 8, n + 4).FormulaR1C1 = "=R16C5&R15C1&""_r_7"""
            Cells(m + 8, n + 5).FormulaR1C1 = "=(7^2 * 0.529*R10C26) / R[10]C"
            Cells(m + 8, n + 22).FormulaR1C1 = "corresponding cells for the other atoms."
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-11]C[1]"
            Cells(m + 9, n + 4).FormulaR1C1 = "Rotate:"
            Cells(m + 9, n + 5).FormulaR1C1 = "0"
            Cells(m + 9, n + 21).FormulaR1C1 = "2. Adding a New Atom:"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 2).FormulaR1C1 = "Show Nr.:"
            Cells(m + 10, n + 3).FormulaR1C1 = "0"
            Cells(m + 10, n + 5).FormulaR1C1 = "0"
            Cells(m + 10, n + 21).FormulaR1C1 = "            a)"
            Cells(m + 10, n + 22).FormulaR1C1 = "Press the Duplicate Atom button."
            Cells(m + 11, n + -1).FormulaR1C1 = "2"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 2).FormulaR1C1 = "Show radius:"
            Cells(m + 11, n + 3).FormulaR1C1 = "0"
            Cells(m + 11, n + 4).FormulaR1C1 = "" & ChrW(-10187) & ChrW(-8434) & " (shield.):        Z" & ChrW(8495) & ChrW(-10187) & ChrW(-9133) & ":"
            Cells(m + 11, n + 21).FormulaR1C1 = "            b)"
            Cells(m + 11, n + 22).FormulaR1C1 = "Scroll down the page until you find the configuration of the duplicate atom."
            Cells(m + 3, n + 1).Interior.Color = "255"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 27 Then ' vector 4
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R31C5=0,"""",R[10]C[3] & ""  ("" & ADDRESS(ROW(R[1]C[3]),COLUMN(R[1]C[3]),4) & "")"")"
            Cells(m + 3, n + 1).FormulaR1C1 = "=-1.6E-19"
            Cells(m + 3, n + 4).FormulaR1C1 = "= (R[-10]C[-1]-1)*0.3"
            Cells(m + 3, n + 5).FormulaR1C1 = "=R16C7 - RC[-1]"
            Cells(m + 3, n + 6).FormulaR1C1 = "d-f "
            Cells(m + 3, n + 21).FormulaR1C1 = "            c)"
            Cells(m + 3, n + 22).FormulaR1C1 = "Edit its position in space at x,y,z coordinates"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "=IF(R32C5=0,9,183)"
            Cells(m + 4, n + 2).FormulaR1C1 = "phi ="
            Cells(m + 4, n + 3).FormulaR1C1 = "=R23C23+(R23C25-R23C23)/R[8]C*R[9]C+R30C7"
            Cells(m + 4, n + 4).FormulaR1C1 = "=0.85*R[-11]C[-1] + 0.35*(R[-10]C[-1]-1)"
            Cells(m + 4, n + 5).FormulaR1C1 = "=R16C7 - RC[-1]"
            Cells(m + 4, n + 6).FormulaR1C1 = "" & ChrW(8675) & ""
            Cells(m + 4, n + 21).FormulaR1C1 = "3. Removing an Atom:"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "=R32C5"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 5, n + 2).FormulaR1C1 = "theta ="
            Cells(m + 5, n + 3).FormulaR1C1 = "=R24C23+(R24C25-R24C23)/R[7]C*R[8]C+R31C7"
            Cells(m + 5, n + 4).FormulaR1C1 = "=IF(RC[2]=0,1*SUM(R23C5:R[-12]C[-1]) + 0.85*R[-11]C[-1] + 0.35*(R[-10]C[-1]-1),1*(SUM(R23C5:R[-10]C[-1])-RC[2]) + 0.35*(RC[2]-1))"
            Cells(m + 5, n + 5).FormulaR1C1 = "=R16C7 - RC[-1]"
            Cells(m + 5, n + 6).FormulaR1C1 = "=MAX(IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""d"",R[-10]C,1),0)+1,3)),0),IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""f"",R[-10]C,1),0)+1,3)),0))"
            Cells(m + 5, n + 21).FormulaR1C1 = "            a)"
            Cells(m + 5, n + 22).FormulaR1C1 = "Press the X button on the atom to be removed."
            Cells(m + 6, n + 4).FormulaR1C1 = "=IF(RC[2]=0,1*SUM(R23C5:R[-12]C[-1]) + 0.85*R[-11]C[-1] + 0.35*(R[-10]C[-1]-1),1*(SUM(R23C5:R[-10]C[-1])-RC[2]) + 0.35*(RC[2]-1))"
            Cells(m + 6, n + 5).FormulaR1C1 = "=R16C7 - RC[-1]"
            Cells(m + 6, n + 6).FormulaR1C1 = "=MAX(IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""d"",R[-10]C,1),0)+1,3)),0),IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""f"",R[-10]C,1),0)+1,3)),0))"
            Cells(m + 6, n + 21).FormulaR1C1 = "4. Calculating the Electric Field at a Point in Space:"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C[4]*COS(RADIANS(R[-3]C[4]))*SIN(RADIANS(R[-2]C[4]))+R18C7"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C[3]*SIN(RADIANS(R[-3]C[3]))*SIN(RADIANS(R[-2]C[3]))+R19C7"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C[2]*COS(RADIANS(R[-2]C[2]))+R20C7"
            Cells(m + 7, n + 2).FormulaR1C1 = "Electron Nr."
            Cells(m + 7, n + 3).FormulaR1C1 = "=R[-18]C+1"
            Cells(m + 7, n + 4).FormulaR1C1 = "=IF(RC[2]=0,1*SUM(R23C5:R[-12]C[-1]) + 0.85*R[-11]C[-1] + 0.35*(R[-10]C[-1]-1),1*(SUM(R23C5:R[-10]C[-1])-RC[2]) + 0.35*(RC[2]-1))"
            Cells(m + 7, n + 5).FormulaR1C1 = "=R16C7 - RC[-1]"
            Cells(m + 7, n + 6).FormulaR1C1 = "=MAX(IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""d"",R[-10]C,1),0)+1,3)),0),IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""f"",R[-10]C,1),0)+1,3)),0))"
            Cells(m + 7, n + 21).FormulaR1C1 = "            a)"
            Cells(m + 7, n + 22).FormulaR1C1 = "Select 1 in the L8 list and enter the coordinates of the point in A11,B11,C11. Press " & ChrW(8629) & " Field"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-1]C[1]<=R23C5,R23C6,IF(R[-1]C[1]<=R24C5+R23C5,R24C6,IF(R[-1]C[1]<=R25C5+R24C5+R23C5,R25C6,IF(R[-1]C[1]<=R26C5+R25C5+R24C5+R23C5,R26C6,IF(R[-1]C[1]<=R27C5+R26C5+R25C5+R24C5+R23C5,R27C6,IF(R[-1]C[1]<=R28C5+R27C5+R26C5+R25C5+R24C5+R23C5,R28C6,IF(R[-1]C[1]<=R29C5+R28C5+R27C5+R26C5+R25C5+R24C5+R23C5,R29C6,R22C6)))))))"
            Cells(m + 8, n + 3).FormulaR1C1 = "=VLOOKUP(RC[-1],R22C6:R29C7,2,FALSE)"
            Cells(m + 8, n + 4).FormulaR1C1 = "=IF(RC[2]=0,1*SUM(R23C5:R[-12]C[-1]) + 0.85*R[-11]C[-1] + 0.35*(R[-10]C[-1]-1),1*(SUM(R23C5:R[-10]C[-1])-RC[2]) + 0.35*(RC[2]-1))"
            Cells(m + 8, n + 5).FormulaR1C1 = "=R16C7 - RC[-1]"
            Cells(m + 8, n + 6).FormulaR1C1 = "=MAX(IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""d"",R[-10]C,1),0)+1,3)),0),IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""f"",R[-10]C,1),0)+1,3)),0))"
            Cells(m + 8, n + 21).FormulaR1C1 = "            b)"
            Cells(m + 8, n + 22).FormulaR1C1 = "The components of the field are observed at A12 for Ex, B12 for Ey, C12 for Ez."
            Cells(m + 9, n + -1).FormulaR1C1 = "=IF(R32C5=0,"""",R19C1-R[-2]C)"
            Cells(m + 9, n + 0).FormulaR1C1 = "=IF(R32C5=0,"""",R19C2-R[-2]C)"
            Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R32C5=0,"""",R19C3-R[-2]C)"
            Cells(m + 9, n + 4).FormulaR1C1 = "=IF(RC[2]=0,1*SUM(R23C5:R[-12]C[-1]) + 0.85*R[-11]C[-1] + 0.35*(R[-10]C[-1]-1),1*(SUM(R23C5:R[-10]C[-1])-RC[2]) + 0.35*(RC[2]-1))"
            Cells(m + 9, n + 5).FormulaR1C1 = "=R16C7 - RC[-1]"
            Cells(m + 9, n + 6).FormulaR1C1 = "=MAX(IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""d"",R[-10]C,1),0)+1,3)),0),IFERROR(VALUE(MID(R[-10]C,IFERROR(FIND(""f"",R[-10]C,1),0)+1,3)),0))"
            Cells(m + 9, n + 21).FormulaR1C1 = "            c)"
            Cells(m + 9, n + 22).FormulaR1C1 = "The magnitude of the resulting electric field of all atoms is observed in G9."
            Cells(m + 10, n + -1).FormulaR1C1 = "=IF(R32C5=0,1,6)"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "Ref. in P. Table:"
            Cells(m + 10, n + 21).FormulaR1C1 = "            d)"
            Cells(m + 10, n + 22).FormulaR1C1 = "The electric field of the first nucleus is observed in row 30, of the first electron in"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "=IF(R32C5=0,8,2)"
            Cells(m + 11, n + 4).FormulaR1C1 = "=FIND(""|"" & R16C7 & "","",  R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22 )"
            Cells(m + 11, n + 22).FormulaR1C1 = " row 48, and so on for the other electrons. The row of nuclei is labeled E_0 (see D30)."
            Cells(m + 3, n + 1).Interior.Color = "15773696"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 36 Then ' vector 3
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""Tot. in ""&R[-4]C"
            Cells(m + 3, n + 3).FormulaR1C1 = "=COUNTIF(C[-1],R[-4]C[-1])"
            Cells(m + 3, n + 4).FormulaR1C1 = "=FIND("","", R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[-1]C+1)"
            Cells(m + 3, n + 21).FormulaR1C1 = "5. Calculating the Electric Field at a Region in Space:"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "Charge Nr:"
            Cells(m + 4, n + 3).FormulaR1C1 = "=COUNTIF(R15C4:R[-4]C[-1],R[-5]C[-1])"
            Cells(m + 4, n + 4).FormulaR1C1 = "=FIND("","", R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[-1]C+1)"
            Cells(m + 4, n + 21).FormulaR1C1 = "            a)"
            Cells(m + 4, n + 22).FormulaR1C1 = "Select 2, 3, 4, or 5 from the list in L8 and press " & ChrW(8629) & " Field. Set the display area to the "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "1"
            Cells(m + 5, n + 4).FormulaR1C1 = "=FIND("","", R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[-1]C+1)"
            Cells(m + 5, n + 22).FormulaR1C1 = "corresponding cells in columns Y, Z, AA, AB, and AC, rows 12 through 17."
            Cells(m + 6, n + 4).FormulaR1C1 = "=FIND("","", R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[-1]C+1)"
            Cells(m + 6, n + 21).FormulaR1C1 = "            b)"
            Cells(m + 6, n + 22).FormulaR1C1 = "To extract a data table with all the points in the space, select YES in R8."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 7, n + 4).FormulaR1C1 = "=FIND("","", R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[-1]C+1)"
            Cells(m + 7, n + 21).FormulaR1C1 = "            c)"
            Cells(m + 7, n + 22).FormulaR1C1 = "To visually adjust the size of the vectors, set the values in cells F8 and G8 by trial and "
            Cells(m + 8, n + -1).FormulaR1C1 = "1"
            Cells(m + 8, n + 0).FormulaR1C1 = "1"
            Cells(m + 8, n + 1).FormulaR1C1 = "1"
            Cells(m + 8, n + 4).FormulaR1C1 = "=FIND("","", R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[-1]C+1)"
            Cells(m + 8, n + 22).FormulaR1C1 = "error (values range from decimals to large powers)."
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-11]C[1]"
            Cells(m + 9, n + 4).FormulaR1C1 = "=FIND("","", R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[-1]C+1)"
            Cells(m + 9, n + 21).FormulaR1C1 = "6. Units:"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=FIND("","", R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[-1]C+1)"
            Cells(m + 10, n + 21).FormulaR1C1 = "            a)"
            Cells(m + 10, n + 22).FormulaR1C1 = "Enter Z10 = 1 to work in Angstrom and Z10 = 1E-10 to work in meters."
            Cells(m + 11, n + -1).FormulaR1C1 = "2"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=FIND("","", R15C22&R16C22&R17C22&R18C22&R19C22&R20C22&R21C22,R[-1]C+1)"
            Cells(m + 11, n + 20).FormulaR1C1 = "                ______________________________________________________________________________________"
            Cells(m + 3, n + 1).Interior.Color = "49407"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 45 Then ' vector 2
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R31C5=0,"""",R[10]C[3] & ""  ("" & ADDRESS(ROW(R[1]C[3]),COLUMN(R[1]C[3]),4) & "")"")"
            Cells(m + 3, n + 1).FormulaR1C1 = "=-1.6E-19"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "=IF(R32C5=0,9,183)"
            Cells(m + 4, n + 2).FormulaR1C1 = "phi ="
            Cells(m + 4, n + 3).FormulaR1C1 = "=R23C23+(R23C25-R23C23)/R[8]C*R[9]C+R30C7"
            Cells(m + 4, n + 21).FormulaR1C1 = "Remarks:"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "=R32C5"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 5, n + 2).FormulaR1C1 = "theta ="
            Cells(m + 5, n + 3).FormulaR1C1 = "=R24C23+(R24C25-R24C23)/R[7]C*R[8]C+R31C7"
            Cells(m + 5, n + 21).FormulaR1C1 = "            a)"
            Cells(m + 5, n + 22).FormulaR1C1 = "Electron radii are automatically calculated for each individual atom using the Bohr"
            Cells(m + 6, n + 22).FormulaR1C1 = "model and Slater's screening rules (which provide good approximations for small atoms)."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C[4]*COS(RADIANS(R[-3]C[4]))*SIN(RADIANS(R[-2]C[4]))+R18C7"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C[3]*SIN(RADIANS(R[-3]C[3]))*SIN(RADIANS(R[-2]C[3]))+R19C7"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C[2]*COS(RADIANS(R[-2]C[2]))+R20C7"
            Cells(m + 7, n + 2).FormulaR1C1 = "Electron Nr."
            Cells(m + 7, n + 3).FormulaR1C1 = "=R[-18]C+1"
            Cells(m + 7, n + 21).FormulaR1C1 = "            b)"
            Cells(m + 7, n + 22).FormulaR1C1 = "The electric field for the atom or atoms is automatically calculated at each point"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-1]C[1]<=R23C5,R23C6,IF(R[-1]C[1]<=R24C5+R23C5,R24C6,IF(R[-1]C[1]<=R25C5+R24C5+R23C5,R25C6,IF(R[-1]C[1]<=R26C5+R25C5+R24C5+R23C5,R26C6,IF(R[-1]C[1]<=R27C5+R26C5+R25C5+R24C5+R23C5,R27C6,IF(R[-1]C[1]<=R28C5+R27C5+R26C5+R25C5+R24C5+R23C5,R28C6,IF(R[-1]C[1]<=R29C5+R28C5+R27C5+R26C5+R25C5+R24C5+R23C5,R29C6,R22C6)))))))"
            Cells(m + 8, n + 3).FormulaR1C1 = "=VLOOKUP(RC[-1],R22C6:R29C7,2,FALSE)"
            Cells(m + 8, n + 22).FormulaR1C1 = "in space using the classical formula of Coulomb's law for electrons and protons,"
            Cells(m + 9, n + -1).FormulaR1C1 = "=IF(R32C5=0,"""",R19C1-R[-2]C)"
            Cells(m + 9, n + 0).FormulaR1C1 = "=IF(R32C5=0,"""",R19C2-R[-2]C)"
            Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R32C5=0,"""",R19C3-R[-2]C)"
            Cells(m + 9, n + 22).FormulaR1C1 = "which do not interact with each other and are considered point charges. Quantum"
            Cells(m + 10, n + -1).FormulaR1C1 = "=IF(R32C5=0,1,6)"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 22).FormulaR1C1 = "mechanics is used only to calculate the radii."
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "=IF(R32C5=0,8,2)"
            Cells(m + 11, n + 21).FormulaR1C1 = "            c)"
            Cells(m + 11, n + 22).FormulaR1C1 = "Quantum effects are not taken into account when calculating the field and the "
            Cells(m + 3, n + 1).Interior.Color = "15773696"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 54 Then ' vector 1
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""Tot. in ""&R[-4]C"
            Cells(m + 3, n + 3).FormulaR1C1 = "=COUNTIF(C[-1],R[-4]C[-1])"
            Cells(m + 3, n + 22).FormulaR1C1 = "positions of the electrons."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "Charge Nr:"
            Cells(m + 4, n + 3).FormulaR1C1 = "=COUNTIF(R15C4:R[-4]C[-1],R[-5]C[-1])"
            Cells(m + 4, n + 21).FormulaR1C1 = "            d)"
            Cells(m + 4, n + 22).FormulaR1C1 = "Initially, the spatial distribution of electrons is done in the YZ plane, but the"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "1"
            Cells(m + 5, n + 22).FormulaR1C1 = "distribution space can be customized in spherical coordinates using the azimuthal"
            Cells(m + 6, n + 22).FormulaR1C1 = "angles in cells W23 and Y23, and the polar angles in cells W24 and Y24."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 7, n + 21).FormulaR1C1 = "            e)"
            Cells(m + 7, n + 22).FormulaR1C1 = "The distribution of electrons in the atom is based only on the first atomic number"
            Cells(m + 8, n + -1).FormulaR1C1 = "1"
            Cells(m + 8, n + 0).FormulaR1C1 = "1"
            Cells(m + 8, n + 1).FormulaR1C1 = "1"
            Cells(m + 8, n + 22).FormulaR1C1 = "n according to the periodic table and is observed from cell E23 for the first atom,"
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-11]C[1]"
            Cells(m + 9, n + 22).FormulaR1C1 = "and in the corresponding cells for the other atoms."
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 21).FormulaR1C1 = "            f)"
            Cells(m + 10, n + 22).FormulaR1C1 = "To EXPORT a project press the Code button."
            Cells(m + 11, n + -1).FormulaR1C1 = "2"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 3, n + 1).Interior.Color = "49407"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Cells(m1 + 2, n1 - 1).Value = 7
      End If ' vector ends
      If m = m1 + 54 Then
            Cells(m + 12, n + 20).FormulaR1C1 = "                ______________________________________________________________________________________"
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub