write permanently to another sheet from a cell with formulated lookup value

[Admin]

Hi Ajish,

May be..

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address(0, 0) <> "J1" Then Exit Sub
    
    Dim LookupValueRow  As Variant
    
    If Len(Target) Then
        LookupValueRow = WorksheetFunction.Match(Target, Range("a:a"), 0)
        If Not IsError(LookupValueRow) Then
            Worksheets("PMast").Cells(LookupValueRow, "BL") = Range("D32").Value
        End If
    End If
        
End Sub

If this is not the case, attach a workbook with expected result.