Thanks for the help guys

Kaper, I amended your code

 ActiveSheet.Paste
to 

ActiveSheet.PasteSpecial Paste:=xlPasteValues
I wanted to paste the formulas if any as values

However, I get a run time error "application defined or object defined error"


Kindly check & amend