Maybe??

Sub moveover()
For i = 2 To 4000
If Cells(i, 1) = "" Then Cells(i, 2).Resize(, 4).Cut Cells(i, 1)
If Cells(i, 2) = "" Then Cells(i, 3).Resize(, 3).Cut Cells(i, 2)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Rosemary" wrote in message
...
Hello,

I copied a table from Word into an Excel spreadsheet (this Word table was
created by copying rows in from other tables). There was just one
problem:
some of the data shifted to the right. It affects just the last 3 columns
at
the right -- specifically, the last 3 columns, which are City, State, and
Zip
Code.

In the Word table they look like this:

City State Zip
New York NY 11222
New York NY 11223
New York NY 11224
New York NY 11225
... etc.

When I copied the table into Excel, this is what happened:

City State Zip (Next Column)
New York NY 11222
New York NY 11223
New York NY 11224
New York NY 11225
New York NY 11226
New York NY 11227

I have been just selecting and moving the data to the left, but there are
4,000 rows and it's taking forever.

Is there something I can do before copying the Word table into Excel that
will prevent this from happening?

Thanks,