[Spirosgr]

Καλημέρα
Δημήτρη αν και το ζητούμενο δεν είναι σαφές έτσι όπως το διατυπώνεις
δοκίμασε το εξής:

Βάλε τις κεφαλίδες στην πρώτη γραμμή (στο σταθεροποιημένο κομμάτι)
Ονόμασε την περιοχή C2:C20 MainSite
Βάλε στην Module τον κώδικα:

Sub OpenWebbrowser()
    Dim c As Range
    On Error Resume Next
    For Each c In Range("MainSite")
        If c.Value <> vbNullString Then
            c.Select
            c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Else
            c(1, 0).Select
            c(1, 0).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            c(1, 2).Value = "Ok!"
        End If
    Next
End Sub

Ο παραπάνω κώδικας κάνει το εξής:
Ψάχνει στην στήλη C (περιοχή C2:C20 MainSite) και αν βρει κελί με Υπερσύνδεση τότε το ανοίγει
Άλλως αν βρει κενό για κάθε κενό που βρίσκει πάει στο offset -1 κελί (στήλη Β) και το ανοίγει και
πάει στο offset +1 κελί (στήλη D) και γράφει "Ok!"
Τώρα για να είμαστε πιο σωστοί θα πρέπει ή οπωσδήποτε όλα τα κελιά της Β
να είναι <>"" ή να μπει μια συνθήκη ακόμα τι να κάνει αν και το αντίστοιχο κελί της Β = ""