Find and Replace - Value selected at random from a list

OK that is one hell of a confusing title.

What I have is 500 city names with 10 variations on the description. For example: Come and visit [City] find everything you need for a fantastic trip here

I want to randomly apply these 10 variations to the 500 cities but also replace [City] with the relevant city name.

I was hoping to use a macro as it's something I will be doing a lot over the next few weeks for thousands of values. Doe anyone have any idea if it's possible and also how to do it, I have no issue using 2 macros either.

If you need any more information please let me know.

Thanks,

Rhys

Can you upload a workbook (or a mockup of your workbook)?

Sample.xlsx

Here is a sample with a smaller list, so we have 10 descriptions, lots of city names and I want them to appear at random with the relevant city name.

Backup your data.
Run: RandomFindAndReplace

Sub RandomFindAndReplace()
    Dim nLastRow As Long, nRow As Long, nRandomRow As Long, str As String
    
    Randomize 'Initialize the random number generator
    
    'Find the last row in column "D"
    nLastRow = Cells(Rows.Count, "D").End(xlUp).Row
    
    ' Start on row 13 to end
    For nRow = 13 To nLastRow
        'Random Row from 3 to 12
        nRandomRow = CLng(10 * Rnd) + 3
        str = Cells(nRandomRow, "E")
        'Replace "[City]" with name in column "D"
        str = Replace(str, "[City]", Cells(nRow, "D"))
        'Place result in column "F"
        Cells(nRow, "F") = str
    Next nRow
End Sub

You Sir are a magician. I cannot thank you enough, the time you have saved me defies all description.