title: cut and paste a certain row of data
body: <p>I have a data set and I needed certain cells cut and pasted to the subsequent rows below it. The code would ideally cut and paste to all rows below it and then stop once it reaches a blank row. After the blank row, it would begin cut and pasting the next row of data to its subsequent rows and repeat. My data looks like this.</p>
  
  <pre><code>Column A    Column B    Column C    Column D
  
  123456789   QASD        School  
  AWQTY192830 GHST        School      Car
  AWQTY192830 GHST        School      Car
  AWQTY192830 GHST        School      Car
  AWQTY192830 GHST        School      Car
  
  987654321   TWER        Work    
  PWLRY437281 DFSW        Work        Bus
  PWLRY437281 DFSW        Work        Bus
  
  827361920   LOWP        Work    
  QLAPT829183 POWE        Work        Bike
  </code></pre>
  
  <p>What I need, for example, is cell A3 (this is a 9-digit number) to be cut and pasted in cell E4:E7 and cell B3 cut and pasted into cell F4:F7. After it's done cut/pasting, it would stop at the blank row below and then start at the next row with data and repeat.</p>
  
  <p>What i've written so far:</p>
  
  <pre><code>Sub cut_paste()
  
  Dim nr As Integer
  For nr = 1 To 195
  
  If Len(Range("A" &amp; nr)) = 9 Then
  
  Range("A" &amp; nr).Select
  Selection.Cut
  Range("N" &amp; nr).Select
  ActiveSheet.Paste
  Range("B" &amp; nr).Select
  Selection.Cut
  
  Range("O" &amp; nr).Select
  ActiveSheet.Paste
  
  Next nr
  
  End Sub
  </code></pre>
  
  <p>Any help is greatly appreciated. Thanks.</p>