title: Export data in multiple columns into multiple sheets
body: <p>I would like to export some column data into separate sheets which I will then export into individual ASCII text files. The specific data are as shown whereby I would like to copy the first two columns (x, y coordinates) and each individual column thereafter into its own sheet. </p>
  
  <pre><code> x     y    Comp1   Comp2   Comp3   Comp4    …  Comp23
  -40  -20    55.29   0       0       73       …  105.67
  -40  -19.9  56.79   0       33      72       …  112.5
  -40  -19.8  69.29   0       31      89       …  114
  -40  -19.7  70.29   0       58.14   108      …  125
   …    …     …       …       …       …        …  …
   40   55    72.29   0       49      117      …  132
  </code></pre>
  
  <p>I'm still getting to grips with writing macros so right now I am basically trying to adapt a recorded macro for one of the iterations to work for the entire sheet which looks as follows:</p>
  
  <pre><code>Sub CopyColData()
      ActiveCell.Range("A1:B1").Select
      Range(Selection, Selection.End(xlDown)).Select
      Selection.Copy
      Sheets.Add After:=ActiveSheet
      ActiveSheet.Paste
      Sheets("Sheet1").Select
      Sheets("Sheet1").Name = "Comp1"
      Sheets("SUM").Select
      Application.CutCopyMode = False
      ActiveCell.Offset(0, 2).Range("A1").Select
      Range(Selection, Selection.End(xlDown)).Select
      Selection.Copy
      Sheets("Comp1").Select
      ActiveCell.Offset(0, 2).Range("A1").Select
      ActiveSheet.Paste
  End Sub 
  </code></pre>
  
  <p>Ideally I would like it to create a new worksheet for each column with the coordinate data in the first two columns, label the worksheet according to the column title and then copy the column data onto the third column. Afterwards I'll export the multiple sheets into individual ASCII files using a different macro. Thanks!</p>