Loop Help

[bayles]

Hi all,

I have a spreadsheet that is a data set from one person, then a second person checks over the data and makes changes. The code below is comparing the final vs input data. But it is taking a long time to process and I know there is a more efficient way to write this code but it is beyond my skills.

Any increases in efficiency appreciated.

Thanks
Ryan


Sub TEST ()


For i = 1 To Application.WorksheetFunction.CountA(Sheets("DP FILE").Range("A7:A10000"))

If IsError(Application.VLookup(ActiveCell, Sheets("DATA ENTRY").Range("A7:A10000"), 1, False)) = True Then

Range(ActiveCell, ActiveCell.Offset(0, 24)).Copy
Sheets("LEARNING").Select
Range("A10000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Sheets("DP FILE").Select
End If


ActiveCell.Offset(1, 0).Select
Next i
End sub