Loop through range, copy and paste

Hello,

I can't seem to find an answer to this and I'm having a little trouble figuring this out.

I have a column of cells with six-digit values. I need to copy one into another sheet, call another Sub, and then move on to the next one. For instance, if I had in column "A" of "Sheet1":

519818
565445
651658
789876
665449

519818 would be copied into Sheets("FORM").Range("H26") and then I'd Call Module1.CalculateAndSave
Then, 565445 would be copied into Sheets("FORM").Range("H26") and so on and so forth until there are no more values in column A.

Thanks!

Maybe:

Please Login or Register  to view this content.