Set searchList = Range("A7" & searchRow & ":" & _
Range("A18" & searchRow).End(xlToRight).Address)

Sorry, I failed to check (x1 to the right).
Fortunately, last night, I did also test your original version as well and I
got the same result.