title: create loop to copy entire colums from three sheets and sort them in a new sheet
body: <p>I am new to VBA and I have encountered a problem to write a certain macro. I have retrieved data from a database on daily yield, ask price and bid price for around 150 bonds. All the yields, ask and bid prices are sorted in order in different sheets. I would like to get for each bond a new sheet with the corresponding yield, bid price and ask price. My yield is in sheet 2, Ask price in sheet 3 and bid price is in sheet 4. It should always copy two entire columns, so for example for the first bond, it should copy the first two columns (two columns because one is the yields and one with the dates) of sheet 2, the first 2 of sheet 3 and the first two columns of sheet 4 and put them next to each other in a new sheet, for the next bond it should copy the next two colums of each sheet and copy it in a new sheet and so on. Is there a possibility to write a macro to do this? </p>
  
  <p>the following is a record of a macro I did manually for the first two bonds </p>
  
  <pre><code>ActiveCell.Offset(0, -6).Columns("A:B").EntireColumn.Select
  ActiveCell.Offset(0, -6).Range("A1").Activate
  Selection.Copy
  Sheets.Add After:=ActiveSheet
  ActiveSheet.Paste
  Sheets("Sheet3").Select
  ActiveCell.Columns("A:B").EntireColumn.Select
  ActiveCell.Offset(1, 0).Range("A1").Activate
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("Sheet7").Select
  ActiveCell.Offset(0, 2).Range("A1").Select
  ActiveSheet.Paste
  Sheets("Sheet4").Select
  ActiveCell.Columns("A:B").EntireColumn.Select
  ActiveCell.Offset(1, 0).Range("A1").Activate
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("Sheet7").Select
  ActiveCell.Offset(0, 2).Range("A1").Select
  ActiveSheet.Paste
  Sheets.Add After:=ActiveSheet
  Sheets("Sheet2").Select
  ActiveCell.Offset(0, 2).Columns("A:B").EntireColumn.Select
  ActiveCell.Offset(0, 2).Range("A1").Activate
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("Sheet8").Select
  ActiveSheet.Paste
  Sheets("Sheet3").Select
  ActiveCell.Offset(0, 2).Range("A1:B1").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "Ask Close"
  ActiveCell.Columns("A:B").EntireColumn.Select
  ActiveCell.Activate
  Selection.Copy
  Sheets("Sheet8").Select
  ActiveCell.Offset(0, 2).Range("A1").Select
  ActiveSheet.Paste
  Sheets("Sheet4").Select
  ActiveCell.Offset(0, 2).Columns("A:B").EntireColumn.Select
  ActiveCell.Offset(0, 2).Range("A1").Activate
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("Sheet8").Select
  ActiveCell.Offset(0, 2).Range("A1").Select
  ActiveSheet.Paste
  </code></pre>