Identifying and moving(copying) cloumns

Hi All,
First - Thanks for the extremely useful information in this forum.

I am trying to wash some of the data that is exported from a database into excel. I need to pick out the column header that reads "Revenue" and copy all of the data (the whole column) under it to another sheet starting at A25. I've tried combinations of vLookup, hLookup, IF, and etc.... but can't do it. Details below. Any help is greatly appreciated...... Thanks!

Here is what I am trying to accomplish:

In row A1, identify which Column is titled "Revenue"
Copy contents of the "Revenue" column to Sheet1-A25

Thanks again!

I tried creating a macro by manually selecting, copying and pasting to the necessary cell, but it doesn't work - error. That was my first attempt at Macros, but it seems more complicated than what I want to do. Does anyone have a simpler idea?

I got the macro to do part of what I need, but not all of it. The thing it lacks is the "intelligence" of automatically searching ROW1 and identifying the REVENUE column and then copying and pasting it to the correct sheet.

Not sure how to make it do everyting, but I'm guessing some formula is necessary.....Please see my original post. Any ideas? Please help!

Here is the Macro I have so far.....

Sub REV()
'
' REV Macro
' Macro recorded 6/20/2007
'

'
Sheets("Siebel_Raw").Select
Range("E1:E1000").Select
Selection.Copy
Sheets("Thermometer").Select
Range("A25").Select
ActiveSheet.Paste
End Sub

On the second line - "Range("E1:1000").Select" - the range represents the Revenue column I need to copy to the other sheet. However, I need the macro (and/or formula) to identify exactly which column "Revenue" is, because its always a different column. How do I make the macro/formula find the appropriate column before copying it to the other sheet? Thanks!!!

Thanks pjoaquin! You have been a great help. I am starting to understand macros a little bit. I do have one problem with the following line of your code:

"Sheets("Siebel_Raw").Range(Cells(2, i), Cells(iLastRow, i)).Copy"

I get "run-time error 1004"
"application-defined or object-defined error"

I tried edit it, but to no avail. Any ideas?

Thanks!

Your example did the trick! I see you have your tabs in a different order than I do. I moved mine to match yours and it worked fine. I assumed that the order of the tabs didn't matter, because they are referenced by name. I would like to keep my original tab order (Thermometer, Siebel_Raw) if possible. What part of the code would I edit to reflect this?

Thanks!!

I added this in your example and it seems to have done the trick!

Sheets("Siebel_Raw").Activate

It looks like this now....

Next
iLastRow = Sheets("Siebel_Raw").Cells(65536, i).End(xlUp).Row
Sheets("Siebel_Raw").Activate
Sheets("Siebel_Raw").Range(Cells(2, i), Cells(iLastRow, i)).Copy
Sheets("Thermometer").Activate
Sheets("Thermometer").Range("A25").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False

pjoaquin you are awesome! Thanks for the info - it is GREATLY appreciated!!