title: Macro does not do all the functions it’s suppose to do
body: <p>Apologies if this is a simple question but I have a macro that divides as it should but it will not copy and paste the contents from one cell to another cell as it’s suppose to do.  See below for examples with expected result.</p>
  
  <pre><code>Sub master2()
      Application.ScreenUpdating = False
  
      Dim pair As Variant, accumulator As Variant
      Dim findFifteen As Double
      Dim remainder As Long, found As Long
  
      found = 1
  
      For Each pair In Range("B30, F30, J30")
          If Right(pair, 2) = 15 Then
              If pair.Offset(0, 2) &lt;= 12 Then
                  findFifteen = pair.Offset(0, 2)     / 12
                  remainder = 0
              Else
                  findFifteen = 1
                  remainder = pair.Offset(0, 2)    Mod 12
              End If
  
              For Each accumulator In Range("A14,     B14, C14, D14, E14, F14, G14, H14, I14, J14, K14, L14")
                  If accumulator.Offset(-1, 0) =     Val(Left(pair, InStr(pair, "-") - 1)) Then 
                      accumulator.Value =     accumulator.Value + remainder
                  End If
                  accumulator.Value =    accumulator.Value + findFifteen
              Next accumulator
  
              Range("E" &amp; found).Value = pair
              found = found + 1
          End If
      Next pair
  
      Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>Example with expected result.</p>
  
  <p>As per my Excel image, my macro is suppose to find specified cells that contain a 15 as the last number. Cell B30 has the number 7-15 in it. I need the macro to go to the cell below (B31 and use the number 1 in this example) and then search the following cell range: E1:E12 to find a 1 (cell E1). Once found place the 7-15 and increase the last digit by 1 (so it becomes 7-16) in the adjacent cell to the right (F1). Do the same with all cells: B30, F30 and J30 but only if they contain a 15 (1-15 or 7-15 etc.) as the last number.  After this delete all contents in cell B30, C30, D30. There are are two examples in my Excel sheet where the same thing needs to happen.</p>
  
  <p><a href="https://i.stack.imgur.com/fG0je.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/fG0je.jpg" alt="excel image"></a></p>