Macro to Create an Excel Table


Create an Excel Table from the Selection


Sub CreateTable()
Dim Sr As Range
Dim Ws As Worksheet
Dim Tb As ListObject
Set Sr = Selection.CurrentRegion
Set Ws = ActiveSheet
Set Tb = Ws.ListObjects.Add(SourceType:=xlSrcRange, Source:=Sr, XlListObjecthasheaders:=xlYes)
End Sub

Convert a data range into a Table with a specific Name


Sub CreateTableWithName()
Dim Sr As Range
Dim Ws As Worksheet
Set Sr = Selection.CurrentRegion
Set Ws = ActiveSheet
Ws.ListObjects.Add(SourceType:=xlSrcRange, Source:=Sr, XlListObjecthasheaders:=xlYes).Name = "XLnCAD"
End Sub

How to use codes shared here?