bmforce

С использованием макросов данную задачу можно было бы решить как-то так:

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.