BadlySpelledBuoy,
That does copy A and B column data down to the same row and leaves the other columns blank. Hard to believe there's finally an answer to this issue! Thanks so much! One thing that it didn't do is paste values only. I preferred to not have the A & B column formulas to be copied on the designation sheet.
Nevertheless, I was able to record macro a copy and paste script and added onto the code (see below). This does remove the formulas and inserted the values only. I do wonder, however, if there is a neater code than what I created that achieves the same objective. If so, how would that be written?
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim loSrc As ListObject: Set loSrc = Sheet1.ListObjects(1)
Dim loTar As ListObject: Set loTar = Sheet2.ListObjects(1)
loSrc.Range(2, 1).Resize(loSrc.DataBodyRange.Rows.Count, 2).Copy loTar.Range(2, 1)
Range("A2:B2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Range("a1").Select
Application.CutCopyMode = False
'ActiveCell.FormulaR1C1 = ""
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Regardless, I am super thrilled to have this generous gift of code. Thanks!
Bookmarks