Можете подсказать:  
Ввожу значения (символ) на E10 MsgBox выдает E11  
хотел бы MsgBox выдавал E10  
кроме ActiveCell.Row-1 или x-1  
 
 
Option Explicit  
Dim x$  
Private Sub Worksheet_Change(ByVal Target As Range)  
   x = ActiveCell.Row 'Cells(Rows.Count, 1).End(xlUp).Row  
       If Not Intersect(Target, Range("e3:e" & x)) Is Nothing Then  
           MsgBox x ' - 1  
       End If  
End Sub