VBA Replace Based on Data from Cells in Another Column

[tomgrandy]

In the image below, I am trying to write a macro that will replace the ~ symbol in the path in Columns C, D, E & F with the Value in Column A (see image)

1​	images/~.jpg	images/~_2.jpg	images/~_3.jpg	images/~_4.jpg
2​	images/~.jpg	images/~_2.jpg	images/~_3.jpg	images/~_4.jpg
3​	images/~.jpg	images/~_2.jpg	images/~_3.jpg	images/~_4.jpg
4​	images/~.jpg	images/~_2.jpg	images/~_3.jpg	images/~_4.jpg
5​	images/~.jpg	images/~_2.jpg	images/~_3.jpg	images/~_4.jpg
7​	images/~.jpg	images/~_2.jpg	images/~_3.jpg	images/~_4.jpg
8​	images/~.jpg	images/~_2.jpg	images/~_3.jpg	images/~_4.jpg
9​	images/~.jpg	images/~_2.jpg	images/~_3.jpg	images/~_4.jpg
10​	images/~.jpg	images/~_2.jpg	images/~_3.jpg	images/~_4.jpg

This will have to move through approximately 450 items so that the last row would look something like this:

images/450.jpg

images/450_2.jpg

images/450_3.jpg

images/450_4.jpg

Any help would be appreciated!

Thanks!
Tom

 

[Artik]

Sub AAA()
    Dim lRow As Long
    Dim vA As Variant
    Dim vB As Variant
    Dim i As Long
    Dim j As Long
    
    lRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    vA = Range("A1").Resize(lRow).Value
    vB = Range("C1").Resize(lRow, 4).Value
    
    For i = 1 To UBound(vA)
        For j = 1 To UBound(vB, 2)
            vB(i, j) = Replace(vB(i, j), "~", vA(i, 1))
        Next j
    Next i
    
    Range("C1").Resize(UBound(vB), UBound(vB, 2)).Value = vB
End Sub

Artik

 

[Burrgogi]

Nevermind. I misread the question.