Use this:
LastRow = Range("A65536").End(xlUp).Row