Sub NetAddressInsert()
    Application.ScreenUpdating = False
    Dim arrIn, lngI As Long, lngJ As Long
    With Worksheets("MT-Лист2")
        lngJ = .Cells(.Rows.Count, 1).End(xlUp).Row
        arrIn = .Range("A2:L" & lngJ).Value
    End With
    With Worksheets("BR-Лист1")
        For lngI = 2 To .Cells(.Rows.Count, 4).End(xlUp).Row
            For lngJ = 1 To UBound(arrIn, 1)
                If .Cells(lngI, "D") = arrIn(lngJ, 1) Then
                    .Cells(lngI, "L") = arrIn(lngJ, 12)
                End If
            Next lngJ
        Next lngI
    End With
    Application.ScreenUpdating = True
End Sub