특정 조건 셀 삭제하려고 하는데 형식 오류가 뜹니다 ㅠㅠ

사회초년생 인턴입니다 ㅠㅠㅠ

회사에서 파일을 만들면 일이 편할거 같아서 만들고 있는데요

계속 형식 오류가 뜹니다 ㅠㅠㅠ

Sub 행삭제_개선()

Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim deleteRange As Range
Dim currentCell As Range

Application.ScreenUpdating = False

' 현재 활성화된 워크시트 설정
Set ws = ActiveSheet

' U열의 마지막 행 찾기
lastRow = ws.Cells(ws.Rows.Count, "U").End(xlUp).Row

' U6부터 마지막 행까지 순환하며, "해당없음"가 포함된 행 찾기
For i = 6 To lastRow
Set currentCell = ws.Cells(i, "u")
If InStr(1, currentCell.Value, "해당없음") > 0 Then
If deleteRange Is Nothing Then
Set deleteRange = currentCell
Else
Set deleteRange = Union(deleteRange, currentCell)
End If
End If
Next i

' 찾은 행이 있으면 삭제
If Not deleteRange Is Nothing Then
deleteRange.EntireRow.Delete
End If

Application.ScreenUpdating = True

End Sub

위의 빨간색 부분에서 오류가 뜨는거 같은데요 ㅠㅠㅠ

혹시 왜 오류가 나는지 알 수 있을까요?

혹여나 제가 Iferror를 사용해서 없는 값은 해당없음 으로 바꾸고

그걸 삭제하려고 하는데 그래서 오류가 나는걸까요?

고수님들 한번만 도와주십셔 ㅠㅠㅠ