I figured it out my self.

I added

Do

The entire macro again

and then the following line.

Loop Until IsEmpty(ActiveCell(1, 3))

It works great.