title: How to change cell address?
body: <p>I am looking for first non blank cell in column A for a merging range.</p>
  
  <p>I found the last cell with the value in that column, but for merging purposes I need to get one cell below. </p>
  
  <pre><code>Sub mergeCells()
  
      Dim rng As Range
      Set rng = Cells.Find(what:="*", after:=Cells(2), 
      searchdirection:=xlPrevious, searchorder:=xlByColumns)
  
      s = ActiveCell.Offset(-1, -1).Address 'one cell above current one 
  
      MsgBox rng.Activate + 1
  
  End Sub
  </code></pre>