title: Create Table in Excel Worksheet using VBA
body: <p>I have this code below that will auto select a range.
  Does anyone know how I can add code to create a table to the selected range?</p>
  
  <p>Thanks!</p>
  
  <pre><code>Sub DynamicRange()
  'Best used when first column has value on last row and first row has a value in the last column
  
  Dim sht As Worksheet
  Dim LastRow As Long
  Dim LastColumn As Long
  Dim StartCell As Range
  
  Set sht = Worksheets("Sheet1")
  Set StartCell = Range("D9")
  
  'Find Last Row and Column
    LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row
    LastColumn = sht.Cells(StartCell.Row, sht.Columns.Count).End(xlToLeft).Column
  
  'Select Range
    sht.Range(StartCell, sht.Cells(LastRow, LastColumn)).Select
  
  End Sub
  </code></pre>