Makro funktioniert nicht immer...

Private Sub Spalteninhalt_löschen()
'Spalteninhalt wird gelöscht und bei Spalten mit Daten wird die erste Zelle farbig formatiert
Dim s
s = ActiveCell.Column
If Cells(2, s).End(xlDown).Value  "" Then
Cells(1, s).Interior.ColorIndex = 35
End If
Selection.EntireColumn.ClearContents
End Sub

das Makro funktioniert auch wenn man es oberflächlich testet, bei meiner Anwendung jedoch, bzw. wenn ich mehr Daten habe, funktioniert es nicht immer, ich erkenne keine Logik wann es nicht gut funzt. Also das Löschen des Spalteninhaltes ist grundsätzlich ok, die farbliche Formatierung jedoch scheint willkürlich zu passieren. Ich verzweifle noch an dem Ding.
Danke für Eure Hilfe im voraus.
Gruß, Claudia