For each non-empty cell.

Can someone help me write a simple loop? I'm writing a macro that will repeat a set of calculations for a range of data (B9:AY17). The data will not always be the same size. It may be from B9:W17, or it may be from B9:AA17.

For example, if B9 is not empty, I want to copy B9:B17 to another sheet. Then I want to repeat this process for C9, copying C9:C17 to the second sheet, repeat for D9, and so on.

Ideally, the first empty cell would stop the macro. So if H9 is empty, the macro would end.

TIA for any help you can offer.

Best regards,

-gshock