Add some copy code
Posted on 2014-07-16
Hi, i have a sub below, i need to add to more sheets to the tab "All", however i do not want their headings to transfer over and i need the first to append to the current data, and the next to append below the second data.
Basically im merging three tabs of data onto one tab called "All"
Sheets.Add.Name = "All"
Set Wss = Workbooks("CurrentMonth.xlsx").Worksheets("Outbound")
Set Wst = Workbooks("CurrentMonth.xlsx").Worksheets("All")
Wss.UsedRange.Copy Destination:=Wst.Cells(1, 1)