Copy data from sheet to a table (object)

[elsg]

Hi

How copy data from tab Tab_Orig fixed row 6 to Tab_Result inside table MyTable?

Look yeloow row both tabs

I try it, but nothing happening

Sub CopyfromTabToTable()

Worksheets("Tab_Result").Select
Range("A3").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.ListObject.ListRows.Add
Worksheets("Tab_Orig").Range("A6:C6, E6, H6:O6").Copy
Worksheets("Tab_Result").ListObjects("MyTable").Range.PasteSpecial (xlPasteValues) 'Here nothing happening

ActiveWorkbook.Worksheets("Tab_Result").ListObjects("MyTable").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Tab_Result").ListObjects("MyTable").Sort. _
SortFields.Add Key:=Range("B4"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tab_Result").ListObjects("MyTable").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("A3").Activate

Worksheets("Seg Seg").Select
Range("A1").Select

End Sub

Thank you!!!

[mancubus]

try:



Dim tblLastRow As Object
Set tblLastRow = Worksheets("Tab_Result").ListObjects("MyTable").ListRows.Add
Worksheets("Tab_Orig").Range("A6:C6, E6, H6:O6").Copy
tblLastRow.Range.PasteSpecial xlPasteValues
Application.CutCopyMode = False

[elsg]

Work it like charm, thank you very much!!