I think there's been a misunderstanding; when I said:
Quote Originally Posted by p45cal View Post
Uncomment the commented-out lines if you want to retain the original active cell active.
it was because I noted in your first post that the active cell in both pictures remained the same, at the cell containing 1717-803-12-01-02.
When any selection of cells is made, there's always 1 cell which is the active cell. Which cell that is depends on how the user made the selection. All my 2 lines of code do is to keep that cell as the active cell after the new selection is made.
So you want to go
Quote Originally Posted by Johnnydotcom View Post
back to the originally selected cells
then set a variable to whole selection before doing any reselecting:
Set OriginalSelection = Selection
'Set originalActiveCell = ActiveCell
Set newSelection = ActiveCell
For Each are In Selection.Areas
  Set newSelection = Union(newSelection, are.Resize(3))
Next are
newSelection.Select
Z = MsgBox("Want the original selection back?", vbYesNo)
If Z = 6 Then OriginalSelection.Select
'originalActiveCell.Activate