Хотя я думаю, что в вашем случае формула будет способом продвижения вперед:
="-"&A1 (Change A1 to cell you refer to)
Вот фрагмент кода для работы с
Range("A2").Value = "-" & Range("A1").Value
И на случай, если вывставьте значения из-за пределов Excel, затем добавьте «-» в ячейку после вставки.
Range("A2").value = "-" & Range("A2").value