DanielFran
New Member
- Joined
- Apr 19, 2018
- Messages
- 35
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
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