title: Copy tables to another worksheet
body: <p>I have 2 tables, "Table1" and "Table2" in Worksheet(1). </p>
  
  <p>I would like to copy these tables to another worksheet(2) where the top left corner of Table1 is in the new worksheet at cell "A1" and the Top left corner cell of Table2 is in the new worksheet at cell "O1." </p>
  
  <p>Unless the ActiveCell is A1 in Sheet2, the tables won't copy and paste correctly. Am I not activating a sheet correctly?</p>
  
  <pre><code>Sub CopyTables()
  Worksheets(2).Activate          'must be on ExHouStorm or Worksheet(1)
  Worksheets(1).ListObjects("Table1").Range.Copy
  Worksheets(2).Paste
  
  
  Worksheets(1).ListObjects("Table2").Range.Copy
  Worksheets(2).Range("O1").Select
  Worksheets(2).Paste
  
  End Sub
  </code></pre>
  
  <p>This seems pretty simple as it partially works but I think I have a syntax mistake.</p>