title: VBA - Copy first three characters from string into another cell
body: <p>I struggle with splitting the first three characters from a cell and insert them into another cell as a seperate string.  </p>
  
  <p>My (example) input: </p>
  
  <pre><code>A
  
  A123456
  A133457
  B123456
  B133457
  ...
  </code></pre>
  
  <p>What I want:</p>
  
  <pre><code>A            B
  A123456      A12
  A133457      A13
  B123456      B12
  B133457      B13
  ...          ...
  </code></pre>
  
  <p>What I tried: </p>
  
  <pre><code>Dim ws As Worksheet
  Dim cell As Range
  
  Set ws = Worksheets("summary")
  
  For Each cell In ws.Range("A").Cells
      cell.Value = Left(cell.Value, 3)
      Next cell
  </code></pre>
  
  <p>This can't work since I'd overwrite the value in all the cells A which I don't want to. Can someone provide help?</p>