VBA: Auto Insert Hyperlinked Photos and Resize

[NeoSez]

I found a script for inserting hyperlinked photos that works well with one column.
However, I would like to know how to insert for multiple columns like I, J, K, L, M, N.
Each column will have several rows of hyperlinks.
Here is the code I found that works well for single column.
Just need to tweak it for multiple columns.
Thank you!

Sub InstallPictures()

    Dim i As Long, v As String, Pic

    On Error Resume Next

    For i = 1 To 1903

        v = Cells(i, "G").Value

        If v = "" Then Exit Sub
        End If

            Set Pic = ActiveSheet.Pictures.Insert(v)

            With Pic

            .LockAspectRatio = msoFalse

            .Width = 100

            .Height = 100

            .Left = Cells(i, "h").Left + Cells(i, "h").Left.Width / 2 - .Width / 2

            .Top = Cells(i, "h").Top + Cells(i, "h").Height / 2 - .Height / 2

            End With

    Next i

    On Error GoTo 0

End Sub