Can this multiple Find and Replace macro be modified

Hi, I use the following macro to find and replace within a single column. I use this function a lot when
sorting through 1000's of products on a daily basis.

I was wondering if anyone had a method of doing the same job that was simpler to edit and use

Sub FindandReplace()
'
' FindandReplace Macro
'

'
    Sheets("xeptor-new").Select
    Columns("C:C").Select
    Selection.Replace What:="1020 ", Replacement:="EliteBook Folio 1020", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="1030 ", Replacement:="EliteBook Folio 1030", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="1040 ", Replacement:="EliteBook Folio 1040", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="400 ", Replacement:="Prodesk 400 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="430 ", Replacement:="ProBook 430 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="440 ", Replacement:="ProBook 440 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="450 ", Replacement:="ProBook 450 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="490 ", Replacement:="Prodesk 490 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="600 ", Replacement:="Prodesk 600 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="640 ", Replacement:="ProBook 640 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="650 ", Replacement:="ProBook 650 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="705 ", Replacement:="EliteDesk 705 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="800 ", Replacement:="EliteDesk 800 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="725 ", Replacement:="EliteBook 725 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="810 ", Replacement:="EliteBook Revolve 810 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="820 ", Replacement:="EliteBook 820 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="840 ", Replacement:="EliteBook 840 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="850 ", Replacement:="EliteBook 850 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="T450 ", Replacement:="Thinkpad T450 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="T460 ", Replacement:="Thinkpad T460 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="T610 ", Replacement:="Thinkpad T610 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="X240 ", Replacement:="Thinkpad X240 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="X250 ", Replacement:="Thinkpad X250 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="X260 ", Replacement:="Thinkpad X260 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
    Selection.Replace What:="X360 ", Replacement:="Spectre Pro X360 ", _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
        
    Range("A1").Select
    Sheets("xeptor").Select
    Range("A1").Select
End Sub

Regards
John