Error while executing macro

Hi Excel Gurus,
I have macro scripts , which ..
1. Stuck at line of DIS_IMO

Range("B3").Resize(j, 14) = sn

(findings- it is not working when all IMOs are blanks)

2. And, in case of 45G1 [in (1) EAL_as it is], it is converting 45 into (1) EAL_List
File enclosed for your reference
Seeking Excel Gurus help to rectifying errors


K Ravindra