[Spirosgr]

Καλημέρα
Φίλε Θοδωρή
Κατ' αρχήν το ζητούμενό σου μπορεί να λυθεί με τον παρακάτω κώδικα
Όπου : Range("Description") = η περιοχή C13:K17
Όπου : Range("DateRange") = η περιοχή (κελί E37) που καλό είναι να μην είναι συγχωνευμένο
Βάλε τον κώδικα σε μια Module και σύνδεσε ένα κουμπί

Sub test()
    Dim c, k As Range
    For Each c In Range("Description")
        For Each k In Range("ΥΠΟΣΤΑΘΜΟΙ")
            If c.Value = k.Value Then
                k(1, 0).Value = Range("DateRange").Value
            End If
        Next k
    Next c
End Sub

Όσο για το "σουλούπωμα" υπάρχουν πάρα πολλά λάθη
και πράγματα που πρέπει να συζητηθούν