Hi DaveUK:DaveUK said:Thanks for taking the time and effort !!
I am actually looking for a VBA solution to this problem.
Regards
ActiveCell.Copy
Cells(ActiveCell.Row, 17).PasteSpecial
Sheets("temp").Cells(WorksheetFunction.CountA(Sheets("temp").Range("a:a")) + 1, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False