Finding last row when there are more than 65536 rows

  ws1.Cells(1, i).Copy ws2.Range("a65536").End(xlUp).Offset(1, 0)

I am looping through the sheet so i is a part of loop. The number of rows are more than 65536 , then how can I adjust this. Thanks in advance.