verifica corrispondenza codici e cerca un numero

ciao
ho letto i post successivi al mio riguardo a colora numeri ecc...

sono d accordo che nel forum si debba tentare poi di imparare.
ma vi assicuroi x me non e' facile !

quindi sono a chiedere se potete commentarmi questa macro
la parte centrale, che non so tradurre/ leggere:

[TESTO vb::Sub Riportainumei() 'ricerca Posizione Dim ur As Long, rp As String, rt As String, ps As Integer, rng As Range, riga As Integer inizio = Timer ur = Range("A" & Rows.Count).End(xlUp).Row Set rng = Range("J1:J51") ' ok Application.Calculation = xlCalculationManual For J = 2 To ur ' parti dalla 2da riga '-------poi qui non la so leggere ------- rp = Cells(J, 1) rt = Left(rp, 2) ps = Right(rp, 1) riga = Application.WorksheetFunction.Match(rt, rng, 0) For I = riga To riga + 4 If Cells(I, 8) = ps Then Cells(J, 2) = Cells(I, 9) Exit For End If Next I Next J Application.Calculation = xlCalculationAutomatic fine = Timer MsgBox ("Tempo impiegato " & Round((fine - inizio), 2) & " secondi") End Sub]