Col A Col B Col C Col D
Fname SSN Telephone Lname
Data . . .
Data . . .
Data . . .


Col M Col N Col O
Fname Telephone Lname
Blank . . .

Use the Data=Advanced Filter
With columns A:D as the source

M1:O1 as the destination

No criteria, Select copy to

Turn on the macro recorder to get the code while you do it manually.

then

set rng = Range("M1").CurrentRegion
set rng = rng.offset(1,0).Resize(rng.rows.count-1)
rng.copy Worksheets("Data").Cells(rows.count,1).End(xlup)(2 )

and So forth

--
Regards,
Tom Ogilvy



"rjr" wrote in message
.. .
Hello, Excel 2003.
My problem is I have data in Oracle on our mainframe and routinely
download this data into excel format.
I then copy and paste this data into the worksheet that I use.
The headers of each one are completely different and I'm looking to
automate the process and import all the data from one to the one I use.
I am also using JWalk data form and there is some calculated data in some
of the fields in the worksheet I'm importing into. I usually use JWalk and
use the "New" feature to generate blank records for as many rows as I'm
going to import.

I could use help with a formula that would allow me to take each column
from the worksheet I'm going to import from (always the same header) and
import that new data into the existing data (always to the same header)
and place it at the bottome of the worksheet's existing data. In the
example Col 2 for SSN would not be exported as it's not used anymore. So
it would have to go to Col 1 "Fname" and select all entries in that column
and then move it to "ERFname" and paste it after the existing data. THen I
would like it to do a sort by ID number so I could compare duplicates and
remove the newer ones.

Col 1 Col 2 Col 3 Col 4 export to Col1
Col2 Col3 Col 4
Fname SSN Telephone Lname ERFname Telephone ERLname
ETC.......

Any ideas or help would be greatly appreciated.
Bob Reynolds