'complete FUNCTION TO DETERMINE IF ROW(r), Column"I", IS COMPLETED
Function RowCompleted(r As Long) As Boolean
RowCompleted = (r <= Sheets("Sheet1").Cells(Rows.Count, 9).End(xlUp).Row - 2)
End Function