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:
endRow = Sheets("Porter").Range("F10000").End(xlUp).Row newRow = Sheets("LD").Range("E10000").End(xlUp).Row + 1




Reply With Quote
