прописать в Excel перемещение из одной ячейки в другую

[mssod]

Подскажите как можно прописать формулу, у меня в ячейке А1 нужно если значение < 0 , то что бы это число из ячейки А1 переместилось в В1?
не знаю как прописать перемещение.

[motorway]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If [a1].Value < 0 Then
[b1] = [a1]
[a1] = ""
End If
Application.EnableEvents = True
End Sub

[mssod]

Посмотрите вложение, там формула, мне надо прописать так что бы в ячейке АВ6 при значении <0, сработала формула Т6-(В6+АА6) и переместила значение этой формулы в ячейку АС6

[motorway]

Если правильно понял, то так:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If [ab6].Value < 0 Then
[ac6] = [t6] - ([b6] + [aa6])
End If
Application.EnableEvents = True
End Sub

[mssod]

А нельзя без макросов, что бі в самой формуле прописать?

[mssod]

А нельзя без макросов, что бы в самой формуле прописать?
во вложении лист.