So for these examples below...You can see I was trying to clean these up and get rid of a bunch of "Select" and "Paste" type code. In the 3 cases below, I still have select in them to jump to the sheet, despite that the "With" statements have the sheets by named reference. I am finding that when I'm testing the script, it keeps failing these if I don't "Manually" jump to the sheet in question before I start an instruction, with statement notwithstanding...also, for the one with the "PasteSpecial" line in it, I tried to make that ".Range("Blah:Blah"&Blah).Copy Destination:=PasteSpecial(Blah blah)" but it keeps throwing errors, so I don't know enough to put that one together in less then all the lines I'm using there, not to mention the same issue where if I don't have focus on the sheet I'm working on, all of these instructions fail. As soon as I take the comment mark off of the "..... Select" line, everything works again, except it looks sloppy jumping around worksheets. I lack the knowledge to get around these or write them more efficient, despite trying many ways that all failed so far.
'Copy Annual Chart Data from Weekly tab to the master tables on the SUMMARY DATA tab.
Worksheets("SUMMARY DATA").Select
With wsDst2
wsDst2.Range("F" & RwCnt2 + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
'Go back to the weekly Tab to delete the Annual columns after the data is moved to the SUMMARY DATA sheet
Worksheets(Worksheets.Count).Select
With wsDst1
.Range("I:X").Delete
End With
'Return to the Imported master data table and clear all contents to prepare for the next update
Worksheets("TG Shipped Lines").Select
With wsCpy
.Range("A:AD").Delete
'.Range("B:B").ClearContents
End With
'Copy Annual Chart Data from Weekly tab to the master tables on the SUMMARY DATA tab.
Worksheets("SUMMARY DATA").Select
With wsDst2
wsDst2.Range("F" & RwCnt2 + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
'Go back to the weekly Tab to delete the Annual columns after the data is moved to the SUMMARY DATA sheet
Worksheets(Worksheets.Count).Select
With wsDst1
.Range("I:X").Delete
End With
'Return to the Imported master data table and clear all contents to prepare for the next update
Worksheets("TG Shipped Lines").Select
With wsCpy
.Range("A:AD").Delete
'.Range("B:B").ClearContents
End With