Just figured out a simple way of coding it without the need of any data in LD column E, or Porter column F

change rows 10 and 11 to

vb Code:
  1. endRow = Sheets("Porter").Range("F10000").End(xlUp).Row
  2.     newRow = Sheets("LD").Range("E10000").End(xlUp).Row + 1