Hi guys,
Below is part of my code:
With wbTL 'Destination workbook
With wsTL.ListObjects("Turnslist")
.DataBodyRange.Select
Set oNewRow = Selection.ListObject.ListRows.Add(AlwaysInsert:=True)
End With
With wsTL
oNewRow.Range.Value = CpyRange.Value
Application.CutCopyMode = False
End With
With wsTL.ListObjects("Turnslist")
.SortFields.Clear
.SortFields.Add _
Key:=Range("Turnslist[[#All],[Column1]]"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortNormal
.Apply
End With
End With
I'm trying to copy a range from one workbook and inserting that range into a table in another workbook, but it keeps throwing an error on line 3. Do I even need to select the body of the table to add a list row?
Bookmarks