Hola
Mirándolo muy por encima veo que te pueden faltar las comillas en el if (que ahora mismo no recuerdo si tienen que ser simples o dobles)
Código:
If Celda.Cells(j, k).Value = 'm' Then
Si no lo has echo, pon un punto de ruptura al inicio del código para ir paso a paso y ver cual puede ser el problema.
--Saludos--