Example, if you have "John" in B1, and "Smith" in C1, and your active cell is A1, then try:
ActiveCell.Value = ActiveCell.Offset(0, 1).Value & Chr(10) & ActiveCell.Offset(0, 2).Value
This code would is all be on a single line in your module. The return in A1 would be:
John
Smith
If I misunderstood your question, please repost.
HTH
Tom Urtis
Re: Is this what you want?
If you want a quick way of manually checking, use Find & replace, replace it with ZZ099, and then replace it back again. The first time you do it should show you how many replacements were made.