Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
With Application
If Not .Intersect(Target, Range("F13,O13")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(13, IIf(Target.Column = 6, 15, 6)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "*", "/") & 2.2046244)
.EnableEvents = True
End If
If Not .Intersect(Target, Range("AA13,AJ13")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(13, IIf(Target.Column = 27, 36, 27)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "/", "*") & 2.2046244)
.EnableEvents = True
End If
If Not .Intersect(Target, Range("F35,O35")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(35, IIf(Target.Column = 6, 15, 6)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "*", "/") & 2.2046244)
.EnableEvents = True
End If
If Not .Intersect(Target, Range("AA35,AJ35")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(35, IIf(Target.Column = 27, 36, 27)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "/", "*") & 2.2046244)
.EnableEvents = True
End If
If Not .Intersect(Target, Range("F57,O57")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(57, IIf(Target.Column = 6, 15, 6)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "*", "/") & 2.2046244)
.EnableEvents = True
End If
If Not .Intersect(Target, Range("AA57,AJ57")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(57, IIf(Target.Column = 27, 36, 27)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "/", "*") & 2.2046244)
.EnableEvents = True
End If
If Not .Intersect(Target, Range("F79,O79")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(79, IIf(Target.Column = 6, 15, 6)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "*", "/") & 2.2046244)
.EnableEvents = True
End If
If Not .Intersect(Target, Range("AA79,AJ79")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(79, IIf(Target.Column = 27, 36, 27)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "/", "*") & 2.2046244)
.EnableEvents = True
End If
If Not .Intersect(Target, Range("F101,O101")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(101, IIf(Target.Column = 6, 15, 6)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "*", "/") & 2.2046244)
.EnableEvents = True
End If
If Not .Intersect(Target, Range("AA101,AJ101")) Is Nothing Then
.EnableEvents = False
If Not IsEmpty(Target) Then _
Cells(101, IIf(Target.Column = 27, 36, 27)).Value _
= Evaluate(Target & Choose((Target.Column Mod 2) + 1, "/", "*") & 2.2046244)
.EnableEvents = True
End If
End With
End Sub