>>>If Range("j1", "m" & r) = "pippo" Then
Non può controllare diverse celle insieme, poi se ci fosse "pippo" in J3 e pure in M3?
Crei una sub per la colonna J e una per la M, dopo le accodi una dopo l'altra.
Ci fossero tante righe..., userei un'altro metodo con FIND
Sub pippo2()
Dim Ur As Long, y As Long, x As Long, N As Long, Rr As Long
Dim Ob As Object
If Range("J" & Rows.Count).End(xlUp).Row >= Range("M" & Rows.Count).End(xlUp).Row Then Ur _
= Range("J" & Rows.Count).End(xlUp).Row Else Ur = Range("M" & Rows.Count).End(xlUp).Row
For y = 10 To 13 Step 3
N = Application.WorksheetFunction.CountIf(Range(Cells(1, y), Cells(Ur, y)), "pippo")
Set Ob = Range(Cells(1, y), Cells(Ur, y)).Find("pippo", After:=Cells(1, y), SearchDirection:=xlNext)
For x = 1 To N
Rr = Ob.Row
Cells(Rr + 3, y) = Cells(Rr + 1, y) * 5
Cells(Rr + 3, y).Font.ColorIndex = 3
Set Ob = Range(Cells(Rr, y), Cells(Ur, y)).FindNext
Next x
Next y
Set Ob = Nothing
MsgBox "Fatto"
End Sub