Originally Posted by jolivanes 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
lNextRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row + 7
lNextRow = Sheet1.Range("B" & Sheet1.Rows.Count).End(xlUp).Row + 7
Forum Rules