Hej hej

För detta behöver du ett makro. Lyft in nedan kod in i editorn i en egen modul. (alt f11) högerklick i projektutforskaren + lägg till modul. Koppla sedan makrot till en figur, snabbtangent eller dylikt. Funktionen är begränsad till 1000 rader, bara att ändra om det behövs fler rader. 

Mvh

Christian

Sub MoveStuff()

Dim SearchRange As Range: Set SearchRange = ActiveSheet.Range("c1:c1000")

Dim mcell As Range

For Each mcell In SearchRange

    If UCase(mcell) = "SANT" Then

        mcell.Offset(0, -1) = mcell.Offset(0, -2)

        mcell.Offset(0, -2) = ""

    End If

Next mcell

End Sub