Roll down - automatically fill in

I get a bug. First, when opening the worksheet i get a run-time error: '1004' saying that it didn't fint any cells. Pressing debug brings up the Visual Basic, and as you can see from the screenshot attatched one line is marked in yellow.

The set up is a bit different from what I initially wanted, but if we could get this to work it would be awesome :-)