Hjælp til fejl

Jeg får en fejl på følgende:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1:G110")) Is Nothing Then
If Target > 0 Then "HER ER MELDES FEJLEN"
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
når jeg bruger en knap til at slette udløbet datoer, som ser således ud:
Private Sub CommandButton1_Click()
Dim t, start_row, end_row As Integer
Dim column_name As String

start_row = 1
end_row = 200
column_name = "A"

For t = start_row To end_row
  If IsDate(Range(column_name & t)) Then
    If DateDiff("d", Range(column_name & t), Now) > 0 Then
      Rows(t & ":" & t).Delete
      t = t - 1
      end_row = end_row - 1
    End If
  End If
  Next
End Sub

Håber det er til at forstå :-)