title: VBA code in multiple cells
body: <p>I'm relatively new to using VBA. I have this code that reads a set of data in a range and concatenates the data into once cell. I have a vast range of cells that this code needs to be ran on. Could someone help me with looping it, so when the code has finished for one range, it moves down the next cell and starts on the next range?</p>
  
  <pre><code>Sub ConcatenateAll()
      Dim x As String, y As String, rng As Range, cell As Range
  
      With ActiveSheet
          Set rng = .Range("AT1:CB20")
          For Each cell In rng
              If cell.Value &lt;&gt; "" Then
                  x = x &amp; cell.Value &amp; "; "
              End If
          Next
          .Range("AK1").Value = Left(x, Len(x) - 2)
      End With
  End Sub
  </code></pre>