VBA Code to Open Workbook and copy data

[Admin]

Hi

Replace the following lines

UniqueHeaders Application.Index(d, 1, 0)
For r = 2 To UBound(d, 1) 'skips header

with

UniqueHeaders Application.Index(d, 2, 0)'second row holds the header
For r = 3 To UBound(d, 1) 'skips header

[Howardc]

Hi

Thanks for the reply & your help

When activating the macro, it now comes up with run time error 9 "subscript out of range" and the folowing code is highlighted

k(n, j) = d(r, c)

It would be appreciated if you would amend your code and advise accordingly