title: Cut and Paste value from Column B to next empty row Column A
body: <p><a href="https://i.stack.imgur.com/3iUZh.pngth" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/3iUZh.pngth" alt="enter image description here"></a></p>
  
  <p>I would like to cut a value from Column B (444) to next empty row in Column A (under rr). The script would then loop through Column B so 16 would be pasted under ee   etc</p>
  
  <p>I played around with the following code to find the next blank row in Column A but need some more help to construct the script;</p>
  
  <p>lastrow = Sheets(1).Range("A1").End(xlDown).Row + 1</p>
  
  <p>Any help would be appreciated</p>