automatische addition mit if than else

Ich probiere eine Arbeitsmappe für Polareanhängung zu machen.
Jetzt habe ich Werte die wenn sie minus sind mit 400 addiert werden müssen ich habe es mit einem Makro versucht aber es funktioniert nicht ganz.
So habe ich es geschrieben:
Sub TEst()
If Range("L6").Value < 0 Then
Range("K6").Cells = Range(L6).Value + 400
Else
End If
If Range("L6") > 0 Then
Range("L6")= Range("K6")
End If
End Sub
Was ich noch dazu sagen muss das L6 is nicht richt er soll die ganze spalte L auf Tabelle2 nach werten <0 überprüfen
danke für die hilfe.

P.S. ich kann nicht gut programmieren ;)