Sim, você precisaria de algo assim no módulo de planilha para a pasta de trabalho -
Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("Z3")) Is Nothing Then
If Range("Z3") = "CSI" Then
Range("B3") = Range("A3")
Range("A3").ClearContents
End If
End If
End Sub
Você pode alterar o intervalo para fazer referência à coluna inteira e usar offset
para definir as alterações.