How about 
Range("A"&Rows.Count).End(xlUp).Offset(1).activate