To find the bottom cell in the last column.
Sub CopyLastCellinLastColumn()
lric = Cells.Find(What:="*", After:=Cells(Rows.Count, Columns.Count), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Address

Range(lric).Copy Range(lric).Offset(, -2)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Pete" wrote in message
...
I can't find a good explanation of how to do this in the discussions board.
I
am hoping someone can answer this quickly.

I have speadsheets with lots of info in it. I want to find the very last
active column and the the very last active cell and copy it. After copying
the data range, I want to then past it in a the first open cell in the
column
to the left.

My problem is the last active cell in any given sheet can be out as far as
"CD55,000" or as close as "Z2". The next availible column is alway 2
columns
to the left. (A, C, E, G.......)

Any help is welcomed.
--
Pete