Dim test As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cpl As Range
If test = True Then Exit Sub
Set cpl = Application.Union(Range("E6"), Range("E8"))
If Application.Intersect(Target, cpl) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
test = True
If Target.Address = "$E$6" Then Range("E8").Value = Target.Value * 44 / 22.4
If Target.Address = "$E$8" Then Range("E6").Value = Target.Value * 44 / 22.4
test = False
End Sub