Quote Originally Posted by jolivanes View Post
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?
nah, it is still the same. I really couldn't understand what has got wrong