I have some code that basically searches through my entire spreadsheet in column A and looks for certain numbers and replaces those numbers with the word remove. I put the a piece of the code below so you can understand what I am trying to do if needed I can put the entire code in if anyone would like to see the whole thing.

Sub FND_RPLC()

Range("A:A").Select
    Selection.Replace What:="*6905*", Replacement:="Remove", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
 Range("A:A").Select
    Selection.Replace What:="*7506*", Replacement:="Remove", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
 Range("A:A").Select
    Selection.Replace What:="*4643*", Replacement:="Remove", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
 Range("A:A").Select
    Selection.Replace What:="*5239*", Replacement:="Remove", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
 Range("A:A").Select
    Selection.Replace What:="*5239*", Replacement:="Remove", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
 Range("A:A").Select
    Selection.Replace What:="*5240*", Replacement:="Remove", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
 Range("A:A").Select
    Selection.Replace What:="*5240*", Replacement:="Remove", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
............
I was wondering if there is a way to list out the numbers within the code instead of repeating each individual code and just changing the number which is what I did above.