Hjælp til en IfThenElse kode i Excel 2010

Hej.

Jeg er ved at lave et program til mig selv omkring forbrug.
Til dette skal jeg kunne indsætte en makro der sletter foregående linjer.

Har prøvet mig frem, men denne kode virker ikke:

Sub Slet_seneste_linje()
'
' Slet_seneste_linje Makro
'

'
    ActiveSheet.Unprotect
    Range("D14").Select
    If ActiveCell.Value2 >= 0 Then
      Rows("14:14").Select
      Selection.Delete Shift:=xlUp
      ActiveSheet.Name = Range("E2")
      ActiveWindow.ScrollRow = 12
      ActiveWindow.ScrollRow = 11
      Range("B11").Select
      ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Else
      ' Display a message box.
      MsgBox "Kan ikke slette linjen, da et eller flere data mangler"
    End If
End Sub

Jeg ønsker at man kan slette den øverste linje i det skema man indtaster data i, men af hensyn til layoutet, må man ikke slette, hvis der ikke er flere linjer eller der ikke er blevet opretttet en.

Håber dette er forklaret nogenlunde forståeligt og håber på hjælp.
Er nybegynder i VBA, så skær gerne ud i pap, hvis det kan lade sig gøre :)..

Mvh. Daniel