동적범위 조건부서식 in vba

@원조백수 님 Sub ()
Dim ws As Worksheet
Dim lastRowB As Long, lastRowE As Long
Dim formula As String

' 작업할 워크시트 설정
Set ws = ThisWorkbook.Sheets("개별 조회")

' B열과 E열에서 동적 배열 함수가 적용된 범위의 마지막 행을 찾음
lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
lastRowE = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row

' E열에 조건부 서식 적용할 조건 설정
' 동적으로 E열의 각 셀을 참조하여 B열의 동적 범위와 비교
formula = "=ISNUMBER(MATCH(INDIRECT(""E"" & ROW()), $B$5:$B$" & lastRowB & ", 0))"

' E열의 적용 범위 설정
With ws.Range("E5:E" & lastRowE)
.FormatConditions.Add Type:=xlExpression, Formula1:=formula
With .FormatConditions(.FormatConditions.Count)
.SetFirstPriority
' 조건을 만족하는 셀의 서식 설정 (예: 배경색을 노란색으로 변경)
.Interior.Color = RGB(255, 255, 0)
.StopIfTrue = False
End With
End With
End Sub

아직 제대로 VBA를 공부를 하지 못하여 블로그 등을 참고하여 작성했습니다.

동적배열 설정이 잘못된 것 같은데, 자세하게 설명되어 있는 글이나 영상을 찾을 수가 없어 어떤 식으로 수정을 해야할지 잘 모르겠습니다.
공부해서라도 꼭 적용해보고 싶습니다.
도움주시면 감사하겠습니다.

@원조백수 님 선생님 혹시 확인 전 이신지요?