How to increment column values in VB Macro?

[WildFire]

I wrote a excel macro which basically does a find and based on the resulting cell copy some more values.

 Example   
A10                     B10     C10     D10      E10     F10  
Earning Per Share     -0.42    0.04    3.71    0.04    2.86

My macro should find the cell where "Earning Per Share" matches and then copy the following 5 cell values.

In the example A10 is found and should copy B10 C10 D10 E10 and F10.

Catch here is that my web query doesn't have the text in same A10, some times in C20 or B18 etc..

So I'm looking for a way to increment Column values in my macro so that the values are copied after the specified text is found. Appreciate any help.

 

[WildFire]

If i wasn't clear, i need help on incrementing the column values alone from say F G H and so on in a loop to copy values