1.
Application.Goto Reference:="rpktc"
2.
Selection.Copy
3.
Application.Goto Reference:="ulrpktc"
4.
Selection.End(xlDown).Select
5.
ActiveCell.Offset(1, 0).Range("A1").Select
6.
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
7.
:=False, Transpose:=False