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