اخي ياسر ربما يعجبك هذا الحل
الكود مرفق
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:b10")) Is Nothing Then
Dim myrange As Range
Set myrange = Range("a1:b10")
i = 1
Do Until i >= 10
If Cells(i, 1) = "" Then Cells(i, 1) = "blank"
If Cells(i, 2) = "" Then Cells(i, 2) = "blank"
i = i + 1
Loop
End If
End Sub
blank.rar