Itried both as below.But shows run time error 
OR
--------------------------------------------------------------------------------

Code:
intLastRow = Cells(ActiveSheet.Rows.Count,"A").End(xlUp).RowCode:
intEndRow = Cells(ActiveSheet.UsedRange.Rows.Count+1,ActiveCell.Column).End(xlUp).Row
