Error in Displaying data fetched from a table

Replace this...
ActiveCell.CopyFromRecordset rs

...with this if you copy only one row for each ID
Sheets("Insight_records").Range("A" & i +1 ).CopyFromRecordset rs

...or this if you copy more than one row for each ID
Sheets("Insight_records").Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset rs