JA,

Add
If IsEmpty(Range("D" & i)) = True Then Exit Do
after the
i=i+1
This checks for empty cells. There are quite a few of different
Is.....functions that may suit you better
depending upon your cell contents.
Do you need to check across your columns and change the D to an E
etc....

Donna