title: Adding a character at the end of text & increment letter A to B
body: <p>What I need help on is to <em>copy the previous cells text into the cell below it</em> and <em>add the letter <code>A</code> at the end of it</em>  i.e. before <code>VP0007</code> after <code>VP0007A</code>. This should continue until all the blank cells have been incremented and it reaches the next <code>VP0008</code>.</p>
  
  <p>Please see the images. I apologise if I am not too clear.</p>
  
  <p>              <strong>Before:</strong>                              <strong>After:</strong><br>
       <a href="https://i.stack.imgur.com/waOFM.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/waOFMm.jpg" alt="before"></a>    <a href="https://i.stack.imgur.com/R6k8l.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/R6k8lm.jpg" alt="after"></a></p>
  
  <p>Right now I have the following code:</p>
  
  <pre><code>ActiveCell.Offset(1, 0).Select
  Letter = "A" 
  Letters = Chr(Asc(Letter) + 1) 
  Number = ActiveCell.Offset(-1, 0).Value 
  If ActiveCell.Value = Number &amp; Letter _ Then 
      ActiveCell.Offset(1, 0).Select.Value Number &amp; Number 
  Else 
      ActiveCell.Value = Number &amp; Letters 
  End If 
  Loop Until ActiveCell.Offset(1, 0).Value &lt;&gt; ""
  </code></pre>