All I can see is that you need to indicate a new line here:

del.EntireRow.Delete    Sheets("Pivots - Geplande bloktreinen").Select
del.EntireRow.Delete :  Sheets("Pivots - Geplande bloktreinen").Select