If you change this line
tolNextRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row + 7
lNextRow = Sheet1.Range("B" & Sheet1.Rows.Count).End(xlUp).Row + 7
Does that do anything?
If you change this line
tolNextRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row + 7
lNextRow = Sheet1.Range("B" & Sheet1.Rows.Count).End(xlUp).Row + 7
Does that do anything?