Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count <> 1 Or Target.Columns.Count <> 1 Then Exit Sub
If Not Intersect([B7:B100], Target) Is Nothing Then
If Target.HasFormula Then Target.Value = Mid$([A6].FormulaR1C1, 2)
ElseIf Target.Address = "$A$2" Then
[F7:F13].FormulaR1C1 = "=" & [B6].Offset(WorksheetFunction _
.Match(Target.Value, [A7:A100], 0)).Value
End If
End Sub