Selecting cell after all macros have run

[Livin404]

Greetings, at long last I've completed a huge process using numerous macros, and after I cut and pasted from the source I'm left with a big selected area on my end result. I want to have the cell to finish up on one cell to remove the distraction of a large segment being selected. I'm hoping one little line can be inserted at the end of the last macro (see below) to help make that happen.

Sub find_last_plus_3()
Dim LastRow As Long
Dim wName As String, wSurame As String, Title As String
Dim x As Variant
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
 wName = Replace(Application.UserName, "GS-05", "MR")
wSurname = UCase(Split(wName, ",")(0))
For Each x In Array("MR ", "ESQ ", "MAJ ", "COL ", "Cpn ")
    If InStr(wName, x) > 0 Then
        Title = UCase(x)
        Exit For
    End If
Next x
Range("A" & LastRow + 3).Value = "UPDATED BY: " & Title & wSurname
  End Sub

Thank you,

 

[mart37]

Activecell.Select

 

[Livin404]

Activecell.Select

Thank you,