I have altered the code to show:
If LOCReport.Fields(1) = Datasheet.Cells(1, y).Value Then
Datasheet.Cells(32, y).Value = LOCReport.Fields(2)
End If
Its going through the run correctly finishing with 'Run has finished', howver it is not copying the figuers to the excel datasheet...