Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then ' Is target one cell
        If Target <> "" And IsNumeric(Target) Then ' is Target non blank or numeric
            Set IListObject = Range(Target.Address).ListObject
            If Not IListObject Is Nothing Then ' is Target is part of table
                If IListObject = "Пробная" Then ' is table is taget table
                    If InStr(1, LCase(Cells(IListObject.HeaderRowRange.Row, Target.Column)), "цена") <> 0 And _
                        Target = Int(Target) Then ' is Target column name contain "цена"
                        Application.EnableEvents = False
                        Select Case Cells(Target.Row, IListObject.Range.Column)
                        Case "XAUUSD"
                            Target = Round(Left(Target & "0000000", 7) / 10 ^ 3, 3)
                            'Target.NumberFormat = "0.000" ' Moved to conditional format
                        Case "USDJPY"
                            Target = Round(Left(Target & "0000000", 6) / 10 ^ 3, 3)
                            'Target.NumberFormat = "0.000" ' Moved to conditional format
                        Case Else
                            Target = Round(Left(Target & "0000000", 6) / 10 ^ 5, 5)
                            'Target.NumberFormat = "0.00000" ' Moved to conditional format
                        End Select
                        Application.EnableEvents = True
                    End If
                End If
            End If
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Const strTableName = "Diary"
    Const strItem = "Item"
    Const strColumnName = "Price"
    Dim IListObject As ListObject
    Dim RangeHeader
    Dim i As Integer
    If Target.Count = 1 Then ' Is target one cell
        If Target <> "" And IsNumeric(Target) Then ' is Target non blank or numeric
            Set IListObject = Range(Target.Address).ListObject
            If Not IListObject Is Nothing Then ' is Target is part of table
                If IListObject = strTableName Then ' is table is taget table
                    If InStr(1, LCase(Cells(IListObject.HeaderRowRange.Row, Target.Column)), LCase(strColumnName)) <> 0 And _
                        Target = Int(Target) Then ' is Target column name contain "цена"
                        RangeHeader = IListObject.HeaderRowRange
                        For i = 1 To UBound(RangeHeader, 2)
                            If LCase(RangeHeader(1, i)) = LCase(strItem) Then
                    Application.EnableEvents = False
                    With Target
                    Select Case Cells(.Row, i + IListObject.Range.Column - 1)
                    Case "XAUUSD"
                    .Value = Round(Left(.Value & "0000000", 7) / 10 ^ 3, 3)
                    .NumberFormat = "0.000"
                    Case "USDJPY"
                    .Value = Round(Left(.Value & "0000000", 6) / 10 ^ 3, 3)
                    .NumberFormat = "0.000"
                    Case Else
                    .Value = Round(Left(.Value & "0000000", 6) / 10 ^ 5, 5)
                    .NumberFormat = "0.00000"
                    End Select
                    End With
                    Application.EnableEvents = True
                    Exit For
                            End If
                        Next
                    End If
                End If
            End If
        End If
    End If
End Sub