Hi All! I am trying to insert a table to a selected range, but am running into an error. Below is the current code I am using:
Thanks in advance!
Code:
Dim LRow As Long
Dim RngA As Range
'Create Table (Assignment_Data)
Application.ScreenUpdating = False
LRow = Cells(Rows.Count, 1).End(xlUp).Row
LCol = Cells(1, Columns.Count).End(xlToLeft).Column
RngA = Range(LRow, LCol).Select
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, RngA, , xlYes).Name = _
"Table1"
Thanks in advance!