Hi, janagan,
maybe we could just analyse the line of code that you insist to use (although it will never do what you expecz oit to do).
You go to Range("A1") and want to offset 1 Row and 0 Column which makes it A2 - why are you surprised that your code does what the code is supposed to do? Even if you put in SpecialcCells there you would end up with that cell selected.
Maybe you should ask yourself why you would need to drag the cursor around instead of working with objects which do what you want? I supplied a working code which loops through the visible cells only - still no need for any Select/Activate. 
Ciao,
Holger
Bookmarks