This is the problem with having your topic split... I just responded to this
message over in the other newsgroup.

--
Rick (MVP - Excel)


"sjsjsjsjsjsjschanged"
wrote in message ...
Thank you for your help.
Macro really worked.
re you working for Microsoft or have ou ever worked for Microsoft?
Did Microsoft ever publis A Super Input Routine?
my search in microsoft websites doesn't show any of information about
book.

Thank you for your help.

"Rick Rothstein" wrote:
"Rick Rothstein" wrote in message
...
This macro should do what you want...

Sub MoveColAToColCFilterOnColB()
Dim X As Long, LastRow As Long, Answer As String
Answer = InputBox("What Column B character(s) do you want to filter
on?")
If Len(Answer) 0 Then
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
For X = 1 To LastRow
If StrComp(Cells(X, "B").Value, Answer, vbTextCompare) = 0 Then
Cells(X, "B").Offset(, 1).Value = Cells(X,
"B").Offset(, -1).Value
End If
Next
End If
End Sub

The code will ask you what text in Column B to search on and then
perform
its copy operation.