Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Union(Target.Cells(1, 1), Range("B2:H5")).Address = Range("B2:H5").Address Then Range("A2") = Target.Cells(1, 1) ElseIf Union(Target.Cells(1, 1), Range("I2:I5")).Address = Range("I2:I5").Address Then Range("A3") = Target.Cells(1, 1) End If End Sub