Worksheet change event code to display message box based on active cell offset content

will this help....it seem to work on the data set I created....ALSO, LAST ROW must be exactly LAST ROW because LAST ROW is not the same as Last Row....you can "wrap" the Rng.Offset(0,-1).value in a UCASE function so no matter how it's in the cell it will convert it to upper case....HTH

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("G6:G200000")) Is Nothing Then
  For Each Rng In Intersect(Target, Range("G6:G200000"))
        If Rng.Offset(0, -1).Value = "LAST ROW" Then
            Beep
            MsgBox "There are no more rows left. Please add more rows."
        End If
  Next Rng
End If

End Sub

EDIT: In your next post you might want to explain the problem a little more than "it doesn't work"....because that could mean a lot of things....have a great day