assuming all the columns have the same headings and this is in row 1
already?
last rw = Range("A1000000").End(xlup).Row

for rw = rw to 2 step -1
IF Cells(rw,1)="cert" then
rows(rw).Delete
End If
Next


wrote in message
...
Hi Everyone,

I have a worksheet where multiple tables are stacked vertically (so,
the worksheet has ~ 500,000 rows). Approximately every 8,000 rows a
new table will begin and the cell in column A will be "cert". (So
cell A1 is "cert", cell A8316 is "cert", cell A16,631 is "cert", etc.)

Each table has between 4 and 25 columns.

I'm hoping to write a macro that will cut the rows beginning with
"cert" and move them to the top of the worksheet and paste them in the
first blank column in row 1. (Basically to correct the problem of
having multiple tables stacked vertically by laying them out
horizontally, then I can delete the duplicate "cert" columns
manually).

Please let me know if you have any suggestions.

Thanks for you help!
Emily