06-12-2013, 12:53 PM
Itried both as below.But shows run time error
OR
--------------------------------------------------------------------------------
Code:
intLastRow = Cells(ActiveSheet.Rows.Count,"A").End(xlUp).Row
Code:
intEndRow = Cells(ActiveSheet.UsedRange.Rows.Count+1,ActiveCell.Column).End(xlUp).Row