Move negative value to next column

Sub neg()
n = 1
Do Until Cells(n,4) = ""
If Cells(n,4) < 0 then
Cells(n,5) = Cells(n,4)
Cellls(n,4).ClearContents
End If
n = n + 1
Loop
End Sub

I get error type mismatch.

I am a noobie, and I'm sure you know what you are doing, but shouln't there be a reference to column d1: d2000?

I mean no disrespect, I am just learning. Also english is not my first language.

Thanks

with n = 1 - cells(n,4) = Cells(1,4) which is the equivalent of saying Range("D1")

There's no need to reference the range as you're telling XL to run a loop on each row of Column D until such time as a row in D is blank at which point you want the loop to exit.

You are then saying to it - if the value in Column D is less than 0 then make Column E equal Column D before deleting the value in D.

The error is a typo I believe - change Cellls to Cells.

try this, an extra L in cells.
I have amended so starts at cell D2 (cells 2,4) and ends at D2000 not first empty cell in col. D;

Sub neg()
n = 2
Do Until n = 2001
If Cells(n, 4) < 0 Then
Cells(n, 5) = Cells(n, 4)
Cells(n, 4).ClearContents
End If
n = n + 1
Loop
End Sub

can it be done without macro?