I am trying to write a macro that does three things.

1. Inserts a column in front of a column.
2. Enters a value in the first row of the new empty column that is next to
the first cell in the old column.
3. Copy the contents of the cell to every cell adjacent to the next column.

So, imagine that Column A contains three rows of data:
Football
Basketball
Baseball

I want to insert a column in front of Column A. I then want to insert the
value "2005" for every row based on how many rows are in column B.

Thank you.