End loop when empty row/cell

[opus]

I don't see any line where you are checking for an empty cell?
The code would be like

If wks.Cells(CRow,1).Value="" Then
..
End If