جرب الكود التالي
Set X = Range("B2").End(xlToRight).Offset(0, 1)
If X <> Range("B2") Or X <> Range("C2") Or X <> Range("D2") Or X <> Range("E2") Or X <> Range("F2") Or X <> Range("G2") Or X <> Range("H2") Then
X.Select
Exit Sub
Else
X.Select
End If
أخوك أبو البراء