I am trying to get the following code to work for a range of cells.
Each time I put in for example Range("A1:A10").value = "whatever" the
system says that there is an error.

This is what I have so far:

Dim n
n = 1
If Range("N6").Value < n Then
Range("D6").Value = ""
Range("e6").Value = ""
End If

This what I would like to do.. something to this effect

Dim n
n=1
if range("N6:N31").Value < n then
Range("D6:D31").Value = ""
Range("E6:E31").Value = ""