Индексируйте информацию из многих рабочих книг по уникальному идентификатору

Worksheets("Source").Columns("A:D").Copy Destination:=Worksheets("Target").Range("a1")

Посмотрите на выше. Этот код перемещается с первого листа на второй. Не нужно копировать + вставлять, и гораздо более простой метод

Примените его к своему коду по мере необходимости