I have found a piece of code which looked like it would part of my problem but it doesn't work.
It doesn't scan down col A of one workbook and match to col A of another but if it worked it would copy cells from one location to a different one.
Sub Test_()
Dim LR As Long, i As Long, j As Long, cls, cls1
cls = Array("A2", "B2", "C2", "D2", "E2", "F2", "G2", "H2", "I2", "J2")
With Sheets("Sheet1")
cls1 = Array("B5", "D5", "F5", "H5", "J5", "L5", "N5", "P5", "I5", "J5")
With Sheets("Sheet2")
For i = LBound(cls) To j = UBound(cls1)
.Range(cls(i)).Copy Destination:=.Cells(cls1(j))
Next i
End With
End With
End Sub
Bookmarks