Here is version 2, improved to clear the matrix cells if the result is
NOT in the range (handy for changing dates)

Sub Matrix()
For Each c In Sheets("Sheet1").Range("Houses")
For Each d In Sheets("Sheet1").Range("Dates")
If c.Offset(0, 1) <= d Then
If c.Offset(0, 2) = d Then
d.Offset(c.Row - 2).Value = "X"
End If
Else
d.Offset(c.Row - 2).Clear
End If
Next d
Next c
End Sub