cercare nome in range di colonne variabili e applicare formula

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