Zellinhalte verschieben

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myRange As Range, bolLeer As Boolean
    If Not Application.Intersect(Columns("A:C"), Target) Is Nothing Then
        bolLeer = True
        For Each myRange In Target
            If myRange <> "" Then bolLeer = False
        Next
        Application.EnableEvents = False
        If bolLeer Then Target.Delete Shift:=xlUp
        Application.EnableEvents = True
    End If
End Sub