i have no idea what you mean by thisSo I can link the issues in a chart base?
i think i found the issue with blank lines, change this line
If rs.RecordCount > 1 Then .Range(.Cells(rw + 1, 1), .Cells(rw + rs.RecordCount - 1, 1)).EntireRow.Insert