To create a table from cells A1:F6, and assuming the table has column headers
Sub table() ActiveSheet.ListObjects.add(xlSrcRange, range("$A$1:$F$6"), , xlYes).name = "Table1" End Sub