С использованием макросов данную задачу можно было бы решить как-то так:
Sub myMacro()
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.ActiveSheet
If sheet.Cells(1, ActiveCell.column).Value = "ціна" Then
sheet.Cells(ActiveCell.Row + 1, ActiveCell.column - 1).Activate
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{ENTER}"
End Sub
Private Sub Workbook_Open()
Application.OnKey "{ENTER}", "myMacro"
End Sub
Можно использовать событие Worksheet_Change, чтобы не привязываться к нажатию на клавишу Enter.
