Hello
I'm using the following code to copy blocks of data, equal column size across yet different row sizes down into a central table.
Yet when I copy the TableWest I would like PasteSpecial Values to pasted, not copied. I tried replicating the code from above, whilst using the "find last cell used" yet can't figure it out.
Any suggestions? Also, any suggestion on a more efficient way of copying would be appreciated.
Cheers
'Copy TableEast data
Sheets("TableEast").Select
Range("T23:AD23").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("TableTotal").Select
Range("A22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Copy TableWestl data
Sheets("TableWest").Select
Range("AL23:AV23").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Worksheets("TableTotal").Cells(Worksheets("TableTotal") _
.Rows.Count, "A").End(xlUp)
Bookmarks