Kan I finde fejlen

Jeg har følgende til at indsætte linjer i Kolonne G ud fra tallet der skrives i kollone H. Til det bruger jeg følgende:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H1:H110")) Is Nothing Then
          Application.SendKeys ("{F2}")
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1:G110")) Is Nothing Then
If Target > 0 Then
Target.Offset(0, 1).Formula = ""
For i = 1 To Target - 1
Target.Offset(0, 1).Formula = Target.Offset(0, 1).Formula & Chr(10)
Next
End If
End If
End Sub

Det virker fint, men når jeg går ind og sletter en række for jeg fejl ved denne If Target > 0 Then

Er der nogle der kan hjælpe?