VBA Code copy paste until last row from list to another worksheet into a excel table

[DanielFran]

Hi,

I need some help with the below vba code.

I have a worksheet which I need to select until the last row. Then paste it into another workbook in the second row which is a table, then save and close.

Sub Step5()

With Range("A5:K10", Range("A5:K10").End(xlDown))

Workbooks.Open Filename:= _
"\\Desktop\Client 2\Share History.xlsx"
Selection.ListObject.ListColumns.Add Position:=2

Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End With
End Sub

Thank you