Hi Arul,

I am sorry, In the above code, I am not getting any error but I do not see any of the columns are getting copied and pasted. Also, I am getting an error in the line:

lrow = .Range("B" & .Rows.Count).End(xlUp).Row
However I have tried declaring a variable stating "Dim Lrow As Long" but still it was not working.

Could you please help me.... thanks!!!