vba to fill values till end of text values in B:B column.

Dear Expert

I want make changes on vba code as i except result in M:M column

I have set of data in B & M...I want fill "GA/KA" where r text values in M:M column till end of text row in B:B column

find the attachment & Code