If you change this line
lNextRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row + 7
to
lNextRow = Sheet1.Range("B" & Sheet1.Rows.Count).End(xlUp).Row + 7

Does that do anything?