Edd,

Don't get discouraged. I doubt that there is a one of us out there that did not go through the same thing. I believe you indicated this was your first attempt at a macro so you may have to work through a few things.

Here are few things to look at and consider.

1. What type of error messages are you getting.

2. Keep in mind that the code I sent you is hard coded in a couple of areas. As an example, the 4 in the code below is look ONLY at column D so if the information is in a different location in the real data, some things are going to have to be adjusted.
wsEndResults.Cells(lNextRow, lI - 2).Value = wsSample.Cells(lI, 4).Value
3. On this piece of code
Set wsSample = Workbooks("WS_IPA_SAMPLE1.XLS").Sheets("Sheet1")
Set wsEndResults = Workbooks("IPA End-User Results - All.XLS").Sheets("Sheet1")
be sure you are putting the file name after workbooks and the tab or sheet name after sheets.

Just keep posting. I'll be more than happy to keep working on this with you and hopefully we will be able to get your problems solved.