Quote Originally Posted by elaineada75 View Post
[...]the info was written in row 2 and not in row 7.
This means that you have no data in column B,or, because this code doesn't refer to your project: 
lNextRow = Sheet16.Range("B" & Rows.Count).End(xlUp).Row + 1 '<- changed