Hi Howard,

Am Mon, 26 Aug 2013 22:21:38 -0700 (PDT) schrieb Howard:

The end result in column A is accurate, however, it is in reverse order of how it was originally listed in A. Would prefer it to be in same order as original.

in my tests the result is in the same order. Comment out the last three
lines in your code and you see, that the order is correct.

Another preference would be to only take the data BETWEEN the start and end words and when copied to column B, a blank cell would be between each range.

then try:
..Range(rngKeyWordStart.Offset(1, 0), rngKeyWordEnd.Offset(-1, 0)).Copy
Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp). _
Offset(2, 0).PasteSpecial xlPasteValues

At the end of your code why don't you delete column A? Column B then is
automatically column A.


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2