Change the Range to Copy in the below line

wb.Sheets("Index").UsedRange.Copy AcWb.Worksheets("index").Range("A" & Rows.Count).End(xlUp)

Regards
Rajan.