title: Copy/paste range from one worksheet to next available column in another worksheet
body: <p>I am trying to copy a range of data from one worksheet into another worksheet in the same workbook.</p>
  
  <p>So copy range("A2:B10") in Sheet1 then paste in ("A2") in Sheet2. </p>
  
  <p>Each time the macro is run, I would like the values in ("Sheet 1").Range("A2:B10") to be pasted in consecutive columns, so in the second run, in <s>"B2"</s> "C2" in Sheet 2. </p>
  
  <p>I have the first part, but struggling with the 2nd part:</p>
  
  <pre><code>Sub sbCopyRangeToAnotherSheet()
  'Set range
  Sheets("Sheet1").Range("A2:B10").Copy  Destination:=Sheets("Sheet2").Range("A2")
  'Copy the data
  Sheets("Sheet1").Range("A2:B10").Copy
  'Activate the destination worksheet
  Sheets("Sheet2").Activate
  'Select the target range
  Range("A2").Select
  'Paste in the target destination
  ActiveSheet.Paste
  
  Application.CutCopyMode = False
  End Sub
  </code></pre>