Loop excel Macro to repeat as long as there is data in the colum

[dkassin]

Have a macro that I need to loop as long as there is data in the columns. The macro works for six columns. I have another macro that runs prior to this one which adds columns to the sheet and then fills in the required data. I need macro to run and work for all data as more is added.

So basically I need to know how to write the code so that I could put it around my already written macro to loop it every six columns with a condition that it stops once there is no data in the upcoming column.

Any help would be greatly appreciated.
Thanks

[CatDaddy]

Dim cell as range
For each cell in range("A1:A" & Range("A65000").end(xlup).row)
...do stuff to cell...
next cell

[dkassin]

For Each cell in Range("A:A1)& Range ("650000").end(xlup).row)

Shows up as a red error and it says Syntax

Why is that?

[CatDaddy]

you have an extra closed parantheses


For Each cell in Range("A:A1)& Range ("A650000").end(xlup).row)

should be:

For Each cell in Range("A:A1" & Range ("A650000").end(xlup).row)

[dkassin]

I got another error that said Method 'Range' of object "_Global'failed this time.

[CatDaddy]

that was my fault, should be:
For Each cell In Range("A1:A" & Range ("A650000").end(xlup).row)

[dkassin]

This code did not work correctly.

I basically need a macro to copy itself and work for all of the columns with are to the right of the first six columns. So the macro imputs data every 6 columns I need it to input data if there are six more column of data in the sheet until there is no more data.

If that make it any more clear

[CatDaddy]

sample workbook?