Sub Project_23_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 23_Battery_EN

   ' Updated: 5/04/24
   ' Created by: Ariel Becerra (23/02/24)
   ' Modified by: _________________
   ' This is the code of your new project.
   ' Steps to embed the code to ScienSolar:
   ' Note 1: The number 23 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it.
   ' Note 2: This code will be integrated into the main code to automate the download of the project.
   ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns.
   ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list.
   ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering.
   ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open.
   ' Step 5. On the left, in the project explorer, select a non full module (or add a new one).
   ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one).
   ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button.
   ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it!
   ' Visit  www.sciensolar.com for news and updates of ? ScienSolar.


            Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1"
            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 = "15"
            Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel Becerra (23/02/24)"
            Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4"
            Cells(m1 + 1, n1 + 3).FormulaR1C1 = "680"
            Cells(m1 + 1, n1 + 4).FormulaR1C1 = " "
            Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0"
            Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8"
            Cells(m1 + 1, n1 + 7).FormulaR1C1 = "25"
            Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4"
            Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1"
            Cells(m1 + 2, n1 + 4).FormulaR1C1 = "L"
            Cells(m1 + 2, n1 + 5).FormulaR1C1 = "0"
            Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8"
            Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0"
            Cells(m1 + 3, n1 + 0).FormulaR1C1 = "=IF(R[-1]C[7]=0,""BatteryOff"",""BatteryOn"")"
            Cells(m1 + 3, n1 + 1).FormulaR1C1 = "BatteryOff"
            Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5"
            Cells(m1 + 3, n1 + 4).FormulaR1C1 = "V (POTENTIAL WITHIN THE BATTERY)"
            Cells(m1 + 3, n1 + 5).FormulaR1C1 = "0"
       Cells(m1, n1 + 9).FormulaR1C1 = "HELP"
       Dim HELPtxt As String
       HELPtxt = "HELP Comment:" & Chr(10) & _
"     1. To create new projects, press the +Vector button without selecting any project in the project list." & Chr(10) & _
"     2. To load an existing project, select a project from the list and then press +Vector" & Chr(10) & _
"     3. To export a new project, press the Get Code button. The code will be saved on your PC in the same directory where this file is located." & Chr(10) & _
"     " & Chr(10) & _
"     If necessary, use this comment to create your own HELP comment for your project. To do this, simply replace this text with your own (Right Click, Edit Comment) and avoid special characters." & Chr(10) & _
"     After pressing Get Code, your comment will be updated and saved in the same txt file as your project and will be uploaded after the project appears in ScienSolar.To include the new project in ScienSolar, perform the following steps:" & Chr(10) & _
"     a) Open the txt file where the project was saved; b) copy all the contents of the file and paste it in the VBA Editor of the Excel file ScienSolar; b) add the project name and number to the list on the CONFIG sheet; a) Verify that the number is correlative and that it agrees with the project header number, if not modify it in the header or in the list as necessary;" & ChrW(211) & "" & Chr(10) & _
"     " & Chr(10) & _
"     Right click to delete or edit this comment." & Chr(10) & _
"     " & Chr(10) & _
"     For documentation on ScienSolar, please visit www.sciensolar.com. ScienSolar was designed for 3D physics modeling in MS Excel.It is normal that for some projects it takes time to load it in the sheet, it depends on the number of objects in your project and the performance of your PC."
       Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt


      If m = m1 + 0 Then ' vector 12
            Cells(m + 3, n + -1).FormulaR1C1 = "1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-1]C[7]=0,""BatteryOff"",""BatteryOn"")"
            Cells(m + 3, n + 1).FormulaR1C1 = "BatteryOff"
            Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5"
            Cells(m + 3, n + 4).FormulaR1C1 = "V (POTENTIAL WITHIN THE BATTERY)"
            Cells(m + 3, n + 5).FormulaR1C1 = "0"
            Cells(m + 3, n + 9).FormulaR1C1 = "SOME VECTORS WERE  U N D E R S C A L E D !"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "200"
            Cells(m + 4, n + 2).FormulaR1C1 = "EMF - Battery Operation"
            Cells(m + 4, n + 12).FormulaR1C1 = "LEAD BATTERY OPERATING MODEL"
            Cells(m + 4, n + 24).FormulaR1C1 = "LEAD  BATTERY AND EMF"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "0"
            Cells(m + 5, n + 1).FormulaR1C1 = "2"
            Cells(m + 5, n + 24).FormulaR1C1 = "CONSERVATION OF CHARGE"
            Cells(m + 6, n + 2).FormulaR1C1 = "||||||||||||H2SO4 MASS CALCULATION|||||||||"
            Cells(m + 7, n + -1).FormulaR1C1 = "0"
            Cells(m + 7, n + 0).FormulaR1C1 = "100"
            Cells(m + 7, n + 1).FormulaR1C1 = "360"
            Cells(m + 7, n + 2).FormulaR1C1 = "INITIAL DATA:"
            Cells(m + 7, n + 21).FormulaR1C1 = "INTRODUCTION"
            Cells(m + 8, n + 2).FormulaR1C1 = "Battery capacity:"
            Cells(m + 8, n + 4).FormulaR1C1 = "C (Ah) ="
            Cells(m + 8, n + 5).FormulaR1C1 = "100"
            Cells(m + 8, n + 21).FormulaR1C1 = "The lead battery is a device that stores electrical energy in the form of chemical energy. In a rechargeable "
            Cells(m + 9, n + -1).FormulaR1C1 = "2"
            Cells(m + 9, n + 0).FormulaR1C1 = "2"
            Cells(m + 9, n + 1).FormulaR1C1 = "2"
            Cells(m + 9, n + 2).FormulaR1C1 = "Initial battery charge:"
            Cells(m + 9, n + 4).FormulaR1C1 = "Q (C)  ="
            Cells(m + 9, n + 5).FormulaR1C1 = "=R[-1]C*3600"
            Cells(m + 9, n + 21).FormulaR1C1 = "battery, the electrical energy supplied from outside is used to complete a chemical reaction and convert "
            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 = "Molar mass of H2 SO4:"
            Cells(m + 10, n + 4).FormulaR1C1 = "m (g/mole) ="
            Cells(m + 10, n + 5).FormulaR1C1 = "98"
            Cells(m + 10, n + 21).FormulaR1C1 = "some chemical compounds into others with greater chemical energy. When the battery is charged, "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 2).FormulaR1C1 = "electron charge:"
            Cells(m + 11, n + 4).FormulaR1C1 = "q_e  ( C ) = "
            Cells(m + 11, n + 5).FormulaR1C1 = "1.6E-19"
            Cells(m + 11, n + 21).FormulaR1C1 = "by closing the circuit, the chemical energy is converted back into electrical energy and the reverse "
            Cells(m + 3, n + 1).Interior.Color = "16746932"
            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 = "SO4-"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 9 Then ' vector 11
            Cells(m + 3, n + -1).FormulaR1C1 = "2"
            Cells(m + 3, n + 0).FormulaR1C1 = "SO4-"
            Cells(m + 3, n + 1).FormulaR1C1 = "SO4-"
            Cells(m + 3, n + 2).FormulaR1C1 = "Avogadro's number:"
            Cells(m + 3, n + 4).FormulaR1C1 = "N_A ="
            Cells(m + 3, n + 5).FormulaR1C1 = "6.02E+23"
            Cells(m + 3, n + 21).FormulaR1C1 = "reactions occur. In this model, the law of conservation of charge and the operation of the battery as "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "200"
            Cells(m + 4, n + 1).FormulaR1C1 = "=""o[20]x=[20;20]o2[""&R[36]C[2]&""]y=[""&R[34]C[2]&"";""&R[35]C[2]&""]o3[40]z=[""&R[-6]C-100&"";""&R[-6]C-100&""]color=[8]origin[cart.]=[0;100;0]tfactor=0,01367188s"""
            Cells(m + 4, n + 2).FormulaR1C1 = "RESULTS:"
            Cells(m + 4, n + 21).FormulaR1C1 = "an EMF can be studied."
            Cells(m + 5, n + -1).FormulaR1C1 = "2"
            Cells(m + 5, n + 0).FormulaR1C1 = "0"
            Cells(m + 5, n + 1).FormulaR1C1 = "2"
            Cells(m + 5, n + 2).FormulaR1C1 = "Number of electrons:"
            Cells(m + 5, n + 4).FormulaR1C1 = "n ="
            Cells(m + 5, n + 5).FormulaR1C1 = "=R[-5]C/R[-3]C"
            Cells(m + 6, n + 2).FormulaR1C1 = "H2SO4 molec. number:"
            Cells(m + 6, n + 4).FormulaR1C1 = "N(H2SO4) ="
            Cells(m + 6, n + 5).FormulaR1C1 = "=R[-6]C/R[-4]C"
            Cells(m + 6, n + 21).FormulaR1C1 = "Press the <<-- button to set to zero the simulation and >> to start the simulation."
            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 number of moles:"
            Cells(m + 7, n + 4).FormulaR1C1 = "X (moles) ="
            Cells(m + 7, n + 5).FormulaR1C1 = "=R[-1]C/R[-4]C"
            Cells(m + 8, n + -1).FormulaR1C1 = "20"
            Cells(m + 8, n + 0).FormulaR1C1 = "200"
            Cells(m + 8, n + 1).FormulaR1C1 = "260"
            Cells(m + 8, n + 2).FormulaR1C1 = "Mass of H2SO4 required:"
            Cells(m + 8, n + 4).FormulaR1C1 = "M (g) ="
            Cells(m + 8, n + 5).FormulaR1C1 = "=R[-7]C*R[-1]C"
            Cells(m + 8, n + 21).FormulaR1C1 = "CONSERVATION OF CHARGE:"
            Cells(m + 9, n + -1).FormulaR1C1 = "2"
            Cells(m + 9, n + 0).FormulaR1C1 = "2"
            Cells(m + 9, n + 1).FormulaR1C1 = "4"
            Cells(m + 9, n + 2).FormulaR1C1 = "||||||||||||||||||||||||||||||||||||||||||||||||| |"
            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 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = "When the circuit is closed, inside the battery, on the walls of the negative electrode, the "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 21).FormulaR1C1 = "following chemical reaction occurs:"
            Cells(m + 3, n + 1).Interior.Color = "16731466"
            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 = "H+"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 18 Then ' vector 10
            Cells(m + 3, n + -1).FormulaR1C1 = "3"
            Cells(m + 3, n + 0).FormulaR1C1 = "H+"
            Cells(m + 3, n + 1).FormulaR1C1 = "H+"
            Cells(m + 3, n + 2).FormulaR1C1 = "|||||||POTENTIAL DIFFERENCE BETWEEN TERMINALS||||||"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "200"
            Cells(m + 4, n + 1).FormulaR1C1 = "=""o[40]x=[-20;25]o2[""&R[31]C[2]&""]y=[""&R[29]C[2]&"";""&R[30]C[2]&""]o3[40]z=[""&R[-15]C-120&"";""&R[-15]C-40&""]color=[8]origin[cart.]=[0;100;0]tfactor=0,01640625s"""
            Cells(m + 4, n + 2).FormulaR1C1 = "INITIAL DATA:"
            Cells(m + 4, n + 27).FormulaR1C1 = "(Eq-36-1)"
            Cells(m + 5, n + -1).FormulaR1C1 = "5"
            Cells(m + 5, n + 0).FormulaR1C1 = "0"
            Cells(m + 5, n + 1).FormulaR1C1 = "2"
            Cells(m + 5, n + 2).FormulaR1C1 = "Reference potential:"
            Cells(m + 5, n + 4).FormulaR1C1 = "V_o ="
            Cells(m + 5, n + 5).FormulaR1C1 = "2"
            Cells(m + 6, n + 2).FormulaR1C1 = "EMF negative terminal:"
            Cells(m + 6, n + 4).FormulaR1C1 = "FEM_1 ="
            Cells(m + 6, n + 5).FormulaR1C1 = "6"
            Cells(m + 6, n + 21).FormulaR1C1 = "The two electrons left over from the reaction are directed through the external circuit to take part "
            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 = "EMF positive terminal:"
            Cells(m + 7, n + 4).FormulaR1C1 = "FEM_2 ="
            Cells(m + 7, n + 5).FormulaR1C1 = "6"
            Cells(m + 7, n + 21).FormulaR1C1 = "in the reaction at the second electrode,"
            Cells(m + 8, n + -1).FormulaR1C1 = "21"
            Cells(m + 8, n + 0).FormulaR1C1 = "40"
            Cells(m + 8, n + 1).FormulaR1C1 = "281"
            Cells(m + 8, n + 2).FormulaR1C1 = "internal resistance:"
            Cells(m + 8, n + 4).FormulaR1C1 = "r ="
            Cells(m + 8, n + 5).FormulaR1C1 = "0.5"
            Cells(m + 9, n + -1).FormulaR1C1 = "2"
            Cells(m + 9, n + 0).FormulaR1C1 = "2"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "Electrode thickness:"
            Cells(m + 9, n + 4).FormulaR1C1 = "dx ="
            Cells(m + 9, n + 5).FormulaR1C1 = "20"
            Cells(m + 9, n + 27).FormulaR1C1 = "(Eq-36-2)"
            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 = "For the closed circuit:"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 2).FormulaR1C1 = "Current in the bulb:"
            Cells(m + 11, n + 4).FormulaR1C1 = "I ="
            Cells(m + 11, n + 5).FormulaR1C1 = "5"
            Cells(m + 11, n + 21).FormulaR1C1 = "and in this way an electric current is formed outside the circuit that lasts as long as there are "
            Cells(m + 3, n + 1).Interior.Color = "16761348"
            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 9
            Cells(m + 3, n + -1).FormulaR1C1 = "4"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-28]C[7]<100,"""",""electron"")"
            Cells(m + 3, n + 1).FormulaR1C1 = "electron"
            Cells(m + 3, n + 2).FormulaR1C1 = "RESULTS:"
            Cells(m + 3, n + 21).FormulaR1C1 = "available sulfur ions in the fluid. When the battery is completely discharged all sulfuric acid "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "200"
            Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[-29]C[6]<140,"""",""s[10]r=[100;100]s2[180]phi=[270;270]s3[10]theta=[""&R[24]C[2]&"";""&R[24]C[2]+15&""]color=[8]origin[cart.]=[-10;100;""&R[-24]C-30&""]tfactor=0,01432292s"")"
            Cells(m + 4, n + 2).FormulaR1C1 = "EMF:"
            Cells(m + 4, n + 4).FormulaR1C1 = "FEM ="
            Cells(m + 4, n + 5).FormulaR1C1 = "=ABS(R[-6]C)+ABS(R[-7]C)"
            Cells(m + 4, n + 21).FormulaR1C1 = "molecules have resulted in water and lead sulfate. From the chemical formulas it can be deduced that, "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "0"
            Cells(m + 5, n + 1).FormulaR1C1 = "2"
            Cells(m + 5, n + 2).FormulaR1C1 = "Voltage between terminals:"
            Cells(m + 5, n + 4).FormulaR1C1 = "DeltaV ="
            Cells(m + 5, n + 5).FormulaR1C1 = "=R[-1]C-R[32]C[-2]*R[-6]C"
            Cells(m + 5, n + 21).FormulaR1C1 = "overall, for every two sulfate ions that are spent, two electrons, in other words for each molecule of "
            Cells(m + 6, n + 2).FormulaR1C1 = "||||||||||||||||||||||||||||||||||||||||||||||||| ||"
            Cells(m + 6, n + 21).FormulaR1C1 = "sulfuric acid one electron is produced."
            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 + 8, n + -1).FormulaR1C1 = "-9.99999999999999"
            Cells(m + 8, n + 0).FormulaR1C1 = "177.714596145697"
            Cells(m + 8, n + 1).FormulaR1C1 = "267.067960895016"
            Cells(m + 8, n + 2).FormulaR1C1 = " "
            Cells(m + 8, n + 21).FormulaR1C1 = "Example 1:"
            Cells(m + 9, n + -1).FormulaR1C1 = "2"
            Cells(m + 9, n + 0).FormulaR1C1 = "2"
            Cells(m + 9, n + 1).FormulaR1C1 = "8"
            Cells(m + 9, n + 2).FormulaR1C1 = " "
            Cells(m + 9, n + 21).FormulaR1C1 = "A lead battery has a capacity of 100 Ah."
            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 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = "a) Find the total charge when it is fully charged."
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 21).FormulaR1C1 = "b) How many grams of sulfuric acid does the battery use until it is completely discharged?"
            Cells(m + 3, n + 1).Interior.Color = "16731466"
            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 = "V"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 36 Then ' vector 8
            Cells(m + 3, n + -1).FormulaR1C1 = "5"
            Cells(m + 3, n + 0).FormulaR1C1 = "V"
            Cells(m + 3, n + 21).FormulaR1C1 = "Solution:"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 1).FormulaR1C1 = "o[0,5]x=[20;20]o2[7]y=[0;200]o3[2]z=[0;0]color=[0]origin[cart.]=[0;0;0]tfactor=0,002170139s"
            Cells(m + 4, n + 2).FormulaR1C1 = "<<-- Potential graph"
            Cells(m + 4, n + 21).FormulaR1C1 = "a) 100 Ah = 100A * 3600 s = 100 C/s * 3600 s = 360000 C"
            Cells(m + 5, n + -1).FormulaR1C1 = "27"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 22).FormulaR1C1 = "Set G11=100 and observe the charge in G12."
            Cells(m + 6, n + 2).FormulaR1C1 = "////////////////////////////////"
            Cells(m + 6, n + 4).FormulaR1C1 = "|"
            Cells(m + 6, n + 21).FormulaR1C1 = "b) For each electron that is released in the circuit, one molecule of sulfuric acid is spent. "
            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 = "3D MODEL CONFIG.:"
            Cells(m + 7, n + 4).FormulaR1C1 = "|"
            Cells(m + 7, n + 22).FormulaR1C1 = "Converting the amount of charge to electrons and relating it to the excess amount  "
            Cells(m + 8, n + -1).FormulaR1C1 = "20"
            Cells(m + 8, n + 0).FormulaR1C1 = "200"
            Cells(m + 8, n + 1).FormulaR1C1 = "0"
            Cells(m + 8, n + 2).FormulaR1C1 = "Cycle stop::"
            Cells(m + 8, n + 3).FormulaR1C1 = "=IF(R[-42]C[4]>160,180,R[-42]C[4])"
            Cells(m + 8, n + 4).FormulaR1C1 = "|"
            Cells(m + 8, n + 22).FormulaR1C1 = "of sulfuric acid, we obtain after some calculations that the mass spent is 366.3 g."
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[-1]C[-1]<R[-18]C[4],R[-22]C[4]*R[15]C[2]-R[-1]C[-1]*(R[19]C[2]*R[-19]C[4])*R[15]C[2]/(200-2*R[-18]C[4]),IF(R[-1]C[-1]<200-R[-18]C[4],(R[-21]C[4]+R[-22]C[4])*R[15]C[2]-R[-1]C[-1]*(R[19]C[2]*R[-19]C[4])*R[15]C[2]/(200-2*R[-18]C[4]),(R[-20]C[4]+R[-22]C[4]+R[-21]C[4])*R[15]C[2]-R[-1]C[-1]*(R[19]C[2]*R[-19]C[4])*R[15]C[2]/(200-2*R[-18]C[4])))"
            Cells(m + 9, n + 2).FormulaR1C1 = "  "
            Cells(m + 9, n + 4).FormulaR1C1 = "|"
            Cells(m + 9, n + 22).FormulaR1C1 = "Set G12=100 and observe the total mass in G20. "
            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 = "SO4 molecules in y axis:"
            Cells(m + 10, n + 4).FormulaR1C1 = "|"
            Cells(m + 11, n + -1).FormulaR1C1 = "6"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 2).FormulaR1C1 = "Start:"
            Cells(m + 11, n + 3).FormulaR1C1 = "=100-R[-3]C*1.2"
            Cells(m + 11, n + 4).FormulaR1C1 = "|"
            Cells(m + 11, n + 21).FormulaR1C1 = "Exercise: An electricity bill shows the average monthly consumption of 120 kWh, which determines a "
            Cells(m + 3, n + 1).Interior.Color = "130835"
            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 7
            Cells(m + 3, n + -1).FormulaR1C1 = "6"
            Cells(m + 3, n + 2).FormulaR1C1 = "End:"
            Cells(m + 3, n + 3).FormulaR1C1 = "100"
            Cells(m + 3, n + 4).FormulaR1C1 = "|"
            Cells(m + 3, n + 22).FormulaR1C1 = "daily consumption of 4 kWh. If this energy is collected with solar panels,"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 1).FormulaR1C1 = "=""o[0,5]x=[20;20]o2[2]y=[220;220]o3[""&R[14]C[2]-1&""]z=[""&R[12]C[2]&"";""&R[13]C[2]&""]color=[0]origin[cart.]=[0;0;0]tfactor=0,001302083s"""
            Cells(m + 4, n + 2).FormulaR1C1 = "Step in y:"
            Cells(m + 4, n + 3).FormulaR1C1 = "=R[-5]C+2"
            Cells(m + 4, n + 4).FormulaR1C1 = "|"
            Cells(m + 4, n + 22).FormulaR1C1 = "a) How many 200 Ah batteries are necessary to store it?"
            Cells(m + 5, n + -1).FormulaR1C1 = "3"
            Cells(m + 5, n + 0).FormulaR1C1 = "6"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 5, n + 2).FormulaR1C1 = "H molecules in y axis:"
            Cells(m + 5, n + 4).FormulaR1C1 = "|"
            Cells(m + 5, n + 22).FormulaR1C1 = "b) How many batteries are needed if each battery can only be discharged up to 50%?"
            Cells(m + 6, n + 2).FormulaR1C1 = "Start:"
            Cells(m + 6, n + 3).FormulaR1C1 = "=-60+R[-7]C*0.75"
            Cells(m + 6, n + 4).FormulaR1C1 = "|"
            Cells(m + 6, n + 22).FormulaR1C1 = "c) How much sulfuric acid is required for the system in point b)?"
            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 = "End:"
            Cells(m + 7, n + 3).FormulaR1C1 = "=-50+R[-50]C[4]*0.75"
            Cells(m + 7, n + 4).FormulaR1C1 = "|"
            Cells(m + 8, n + -1).FormulaR1C1 = "20"
            Cells(m + 8, n + 0).FormulaR1C1 = "220"
            Cells(m + 8, n + 1).FormulaR1C1 = "168"
            Cells(m + 8, n + 2).FormulaR1C1 = "Step in y:"
            Cells(m + 8, n + 3).FormulaR1C1 = "=R[-9]C+20"
            Cells(m + 8, n + 4).FormulaR1C1 = "|"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "-250"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "Electron movement:"
            Cells(m + 9, n + 4).FormulaR1C1 = "|"
            Cells(m + 9, n + 21).FormulaR1C1 = "DIFFERENCE OF POTENTIAL AND EMF"
            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 = "Theta(t) ="
            Cells(m + 10, n + 3).FormulaR1C1 = "=250-R[-53]C[4]"
            Cells(m + 10, n + 4).FormulaR1C1 = "|"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 2).FormulaR1C1 = "////////////////////////////////"
            Cells(m + 11, n + 4).FormulaR1C1 = "|"
            Cells(m + 11, n + 21).FormulaR1C1 = "The graph represents the potential versus the body lenght of the battery. When the external "
            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 = "(Eq-36-5)"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 54 Then ' vector 6
            Cells(m + 3, n + -1).FormulaR1C1 = "7"
            Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-36-5)"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<--FEM 1, double arrow"
            Cells(m + 3, n + 21).FormulaR1C1 = "circuit is disconnected, the potential is constant in three regions: inside the two electrodes and in "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "/////////////////////////////"
            Cells(m + 4, n + 4).FormulaR1C1 = "|"
            Cells(m + 4, n + 21).FormulaR1C1 = "the battery liquid, while when the external circuit is connected, the potential inside takes on "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 2).FormulaR1C1 = "GRAPHIC SETUP:"
            Cells(m + 5, n + 4).FormulaR1C1 = "|"
            Cells(m + 5, n + 21).FormulaR1C1 = "another form allowing the Positive charges (H+) travel from left to right, that is, from highest "
            Cells(m + 6, n + 2).FormulaR1C1 = "V scale:"
            Cells(m + 6, n + 3).FormulaR1C1 = "12"
            Cells(m + 6, n + 4).FormulaR1C1 = "|"
            Cells(m + 6, n + 21).FormulaR1C1 = "to lowest potential, and negative charges (SO4 -) travel from right to left, that is, from lowest to "
            Cells(m + 7, n + -1).FormulaR1C1 = "20"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-34]C[5]-2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=RC[2]"
            Cells(m + 7, n + 2).FormulaR1C1 = "V_INF"
            Cells(m + 7, n + 3).FormulaR1C1 = "=R[-38]C[2]*R[-1]C-R[3]C*R[-35]C[2]*(R[-34]C[2])/(200-2*R[-34]C[2])"
            Cells(m + 7, n + 4).FormulaR1C1 = "|"
            Cells(m + 7, n + 21).FormulaR1C1 = "highest potential, as is natural. However, a sudden jump in potential is observed on the walls of "
            Cells(m + 8, n + 2).FormulaR1C1 = "V_SUP="
            Cells(m + 8, n + 3).FormulaR1C1 = "=(R[-37]C[2]+R[-39]C[2]+R[-38]C[2])*R[-2]C-R[2]C*R[-36]C[2]*(200-R[-35]C[2])*R[-2]C/(200-2*R[-35]C[2])"
            Cells(m + 8, n + 4).FormulaR1C1 = "|"
            Cells(m + 8, n + 21).FormulaR1C1 = "the electrodes, where positive charges move from lower to higher potential and negative "
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-39]C[4]*R[-3]C[2]"
            Cells(m + 9, n + 2).FormulaR1C1 = "Delta V ="
            Cells(m + 9, n + 3).FormulaR1C1 = "=(R[-1]C-R[-2]C)"
            Cells(m + 9, n + 4).FormulaR1C1 = "|"
            Cells(m + 9, n + 21).FormulaR1C1 = "charges the opposite, which goes against their nature. This is because on the walls of the"
            Cells(m + 10, n + -1).FormulaR1C1 = "3"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 2).FormulaR1C1 = "I ="
            Cells(m + 10, n + 3).FormulaR1C1 = "=IF(R[-62]C[4]=0,0,R[-35]C[2])"
            Cells(m + 10, n + 4).FormulaR1C1 = "|"
            Cells(m + 10, n + 21).FormulaR1C1 = "electrodes chemical reactions happen that do the work of bringing positive charges from a "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "2"
            Cells(m + 11, n + 2).FormulaR1C1 = "/////////////////////////////"
            Cells(m + 11, n + 4).FormulaR1C1 = "|"
            Cells(m + 11, n + 21).FormulaR1C1 = "lower potential to a higher potential and similarly with negative charges."
            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 = "(Eq-36-6)"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 63 Then ' vector 5
            Cells(m + 3, n + -1).FormulaR1C1 = "8"
            Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-36-6)"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<--FEM 2, double arrow"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "When the battery is disconnected, the potential difference is equal to the sum of the emf in "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 21).FormulaR1C1 = "each electrode, in turn equal to the total emf:"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C+R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-7]C+R[-9]C+160"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-8]C[2]-R[-45]C[4]*R[-10]C[2]"
            Cells(m + 7, n + 27).FormulaR1C1 = "(Eq-36-3)"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-47]C[4]*R[-12]C[2]"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "while when it is connected the equation takes place:"
            Cells(m + 10, n + -1).FormulaR1C1 = "3"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "2"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-36-4)"
            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 + 72 Then ' vector 4
            Cells(m + 3, n + -1).FormulaR1C1 = "9"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<--Ir, bottom dotted line"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "Press <<-- to view the potential graph when the battery is disconnected and >> to view the potential "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "6"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 21).FormulaR1C1 = "across the battery while the external bulb is connected."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "-30"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-17]C[2]-R[-54]C[4]*R[-19]C[2]"
            Cells(m + 7, n + 21).FormulaR1C1 = "Change the following initial parameters and run the simulation again:"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "250"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 22).FormulaR1C1 = "Reference potential:"
            Cells(m + 9, n + 24).FormulaR1C1 = "G26"
            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 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 22).FormulaR1C1 = "Negative EMF:"
            Cells(m + 10, n + 24).FormulaR1C1 = "G27"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 22).FormulaR1C1 = "positive EMF:"
            Cells(m + 11, n + 24).FormulaR1C1 = "G28"
            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 + 81 Then ' vector 3
            Cells(m + 3, n + -1).FormulaR1C1 = "10"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<--Ir, dotted line above"
            Cells(m + 3, n + 22).FormulaR1C1 = "Internal resistance:"
            Cells(m + 3, n + 24).FormulaR1C1 = "G29"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 22).FormulaR1C1 = "Electrodes thickness:"
            Cells(m + 4, n + 24).FormulaR1C1 = "G30"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "6"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 22).FormulaR1C1 = "Current in the bulb:"
            Cells(m + 5, n + 24).FormulaR1C1 = "G32"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "-30"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]C[2]+R[-64]C[4]*R[-28]C[2]"
            Cells(m + 7, n + 21).FormulaR1C1 = "By changing these data that characterize the battery and the external circuit, you can see the results "
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "of the EMF and the voltage between the terminals in cells G34 and G35 respectively."
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "30"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "The units of voltage and EMF are given in volts, while the thickness of the electrodes is given in cm."
            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 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = "These units can be treated as convenient by the reader."
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            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 + 90 Then ' vector 2
            Cells(m + 3, n + -1).FormulaR1C1 = "11"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-91]C[7]=0,"""",""(Eq-36-7)"")"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<-- Ir, double arrow"
            Cells(m + 3, n + 21).FormulaR1C1 = "Question: If the voltage of a charged battery is measured with a voltmeter before and after "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "connecting it to an external circuit,"
            Cells(m + 4, n + 22).FormulaR1C1 = "de conecatrla a un circuito externo, "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=IF(R[-93]C[6]=0,1,0)"
            Cells(m + 5, n + 22).FormulaR1C1 = "a) Did the voltage between the battery terminals change?"
            Cells(m + 6, n + 22).FormulaR1C1 = "b) Did the EMF change?"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-11]C-R[-20]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "2"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "2"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "2"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 3, n + 1).Interior.Color = "3506772"
            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 = "(Eq-36-3)"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 99 Then ' vector 1
            Cells(m + 3, n + -1).FormulaR1C1 = "12"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-100]C[7]=0,""(Eq-36-3)"",""(Eq-36-4)"")"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<-- Delta V, double arrow"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-45]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "250"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-45]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-45]C+R[-36]C-R[-9]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "3"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 3, n + 1).Interior.Color = "3506772"
            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 = 12
      End If ' vector ends
      If m = m1 + 99 Then
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub