您可以使用以下代码来找到符合条件的范围中的第一个单元格：

Sub FindFirstCell()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置范围
    Set rng = Range("A1:A10") ' 更改为您需要的范围
    
    ' 循环范围中的每个单元格
    For Each cell In rng
        ' 检查单元格是否不为空且不与另一个范围中的单元格匹配
        If Not IsEmpty(cell) And cell <> Range("B1") Then ' 更改为您需要的另一个范围
            ' 找到符合条件的第一个单元格并结束循环
            cell.Select ' 或者您可以在此处添加您需要的操作
            Exit For
        End If
    Next cell
End Sub

上述代码中，我们首先设置了一个范围（rng），然后使用 For Each 循环遍历范围中的每个单元格。在每次循环中，我们检查单元格是否不为空且不与另一个范围中的单元格匹配。如果符合条件，则选择该单元格（或者您可以在此处添加您需要的操作）并使用 Exit For 结束循环。

请注意，您需要根据实际情况更改范围和另一个范围的地址。