[Tasos]

Καλησπέρα!
Φίλε Γιώργο δοκίμασε:

Sub SetValues()
    Dim rng As Range, rng1 As Range
    Set rng = Range("Months").Find(Range("Months").Parent.Range("A1"), , xlValues)
    If Not rng Is Nothing Then
        Set rng = rng.Offset(, 1).Resize(1, Range("Data").Columns.Count)
        On Error Resume Next
        Set rng1 = rng.SpecialCells(xlCellTypeConstants)
        If Not rng1 Is Nothing Then
            If MsgBox("Ο μήνας " & rng.Offset(, -1)(1) & " περιέχει ήδη δεδομένα!" & vbLf & _
                      "Θέλετε να ενημερώσετε τα δεδομένα αυτά;", vbYesNo + vbQuestion) <> vbYes Then
                Exit Sub
            End If
        End If
        rng.Value = Range("Data").Value
    End If
End Sub

Καλή συνέχεια!

Τάσος


Θανάση με πρόλαβες!