O caminho simples seria usar
=IF(A2<>"",A2*-1,"" )
Mas você pode receber alguns avisos nas células.
Pessoalmente, eu evitaria isso e apenas executaria o VBA
Sub SwitchThem()
Dim myCell As Range
For Each myCell In Range("A1:A6")
If Not IsEmpty(myCell) Then myCell.Offset(, 1) = myCell * -1
Next
End Sub
Isso os ignoraria. Você também pode defini-las como vbnullstring
.