The archives would like to see your final solution.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Johnny" wrote in message
...
Thx Guys. that help me a lot.

"Joel" wrote:

The code below will move data in selected column to column A.

Sub movetext()

ThisCol = ActiveCell.Column
LastRow = Cells(Rows.Count, ThisCol).End(xlUp).Row
For RowCount = 1 To LastRow
If Cells(RowCount, ThisCol) < "" Then
Cells(RowCount, "A") = Cells(RowCount, ThisCol)
End If
Next RowCount
End Sub

"Johnny" wrote:

need a formula or macro to find text in columns and move that to the
frist
column of row. sample the text(apple) in the column M58 or K90. want to
move
to A58 or A90 by formula or macro.