VBA Script wird nicht ausgeführt (Problem liegt beim Einfügen der Daten)

[blablagei]

Hallo bitte um Hilfe,  ich möchte ein VBA Script ausführen , in meiner Testarbeitsmappe klappte das ganz gut, jedoch wenn nun neue Daten einfach via Copy Paste in Spalte E einfüge macht er mir nix mehr. 
Habe bisher versucht die Spalte in Standart und Text zu formatieren.
Die Daten als Werte eingefügt , aber es klappt nix.

Hier der VBA Code welcher gut funktioniert 
(Lösche Zeilen die eine bestimmte Zeichenkette (pin, am, www) in Spalte E enthalten)

Sub finde_und_loesche()
  Dim i As Long
  For i = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
    If enthaelt(Cells(i, 5), "pin") Or enthaelt(Cells(i, 5), "am") Or enthaelt(Cells(i, 5), "www") Then '...hier kannst du beliebig viele Bedingungen einfügen
      Rows(i).Delete
    End If
  Next i
End Sub

Function enthaelt(ByVal search_in As String, ByVal search_for As String) As Boolean
  Dim i As Integer
 
  enthaelt = False
 
  For i = 1 To Len(search_in) - Len(search_for) + 1
    If Mid(search_in, i, Len(search_for)) = search_for Then enthaelt = True
  Next i
End Function