hi,
i want to add this code to my worksheet_change Event
If Target.Cells.count = 1 Then
        If Not Intersect(Target, Range("F11:F2000")) Is Nothing Then
        
            Application.EnableEvents = False
            Range("A11:E11").Copy Destination:=Range("A" & Target.Row)
            Range("I11:Y11").Copy Destination:=Range("I" & Target.Row)
            Application.EnableEvents = True
        End If
    End If
    End If
this code please add above event to work automatically when i type in range("F11:F2000")

Sub GetUnique_OL_BC()
    Dim i               As Long
    Dim LastRow         As Long
    Dim LASROS          As Long
Application.ScreenUpdating = False
LASROS = Sheets("OL BC").Range("Z" & Rows.count).End(xlUp).Row + 10
Range("Z10:Z" & LASROS).ClearContents
    
    LastRow = Sheets("OL BC").Range("B" & Rows.count).End(xlUp).Row
    For i = 10 To LastRow
        If Application.WorksheetFunction.CountIf(Range("B10:B" & i), Range("B" & i).Text) = 1 Then
            Range("Z65536").End(xlUp).Offset(1, 0).Value = Range("B" & i).Text
        End If
    Next i
Application.ScreenUpdating = True
End Sub