Dear Mike Fogleman

thanks for the quick reply, the code did not work properly
i have pasted the code in the module of VBA using Insert Module but the
problem is when i run the macro it give this error -

Run-time error '1004'
Application-defined or object-defined error
and provide 3 option "End" "Debug" "Help"

but i noticed that the cell value on the active sheet is changed to "Amount".
have i done any mistake in pasting the code in VBA?

I hope you can rectify the proble with this explanation.