Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range("A1:H10") 'The range you want to fill with asterixes
With c
If IsEmpty(.Value) Then .Value = "*"
End With
Next c
End Sub