Is the contents of your cell  repeated anywhere?

If not, you might try:

Sub FindReplace()
Dim strValue As String

strValue = ActiveCell.Value

'Perform your Sort commands

Columns("c:c").Select
Cells.Find(What:=strValue, After:=ActiveCell, LookIn:=xlValues, LookAt:=
_
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
End Sub