I am looking for a script that will pull data from last edited cell into Cell `B1` of active sheet and also look up data from cell in column `A` and then display it in cell `A1`.

So far I've got this to pull last edited cell into `B1` and it works fine but I cannot figure out how to then go back from that point to row `A` and display the other info.

```
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("F13:W9910")) Is Nothing Then
        ActiveSheet.Range("B1").Value = Target.Value
    End If
End Sub

```

In the attached picture if I add any numbers in section called trays completed (in red) to display in `B1` and then look up number in Sap column and display the number in cell `A1`

![Attached Image](https://i.stack.imgur.com/5qtWw.jpg)