Meine Schleife funktioniert nicht

ich habe ein script, bei dem in mehreren Schleifen geprüft wird, ob eine bestimmte Zelle nicht leer ist, woraufhin eine Aktion ausgeführt werden soll.

Leider funktioniert sie auch dann, wenn sie nicht funktionieren soll (und zwar, wenn die Zelle leer ist.)

Eine meine Schleifen:
'Zeile 15 = Attachment
If Not IsEmpty(Cells(y, 15)) Then
Rows(y + 1 + u).Insert
Cells(y + 1 + u, 8) = Cells(y, 15)
Cells(y, 15).ClearContents
'vor Pfad ART als ATT setzen
Cells(y + 1 + u, 6) = "ATT"
u = u + 1
End If

Was habe ich verkehrt gemacht?

MfG
Sebastian