Necesito descifrar esta macro

Hola buenas.

Tengo esta macro y necesito modificarla pero claro del lenguaje Visual Basic ni idea,lo que quisiera saber que hace referencia, para a ver si a si puedo modificarla al haber cambiado la plantilla a que hace referencia esta macro.

Do
fl = rng.Row
clmn = rng.Column
flult = rng.End(xlDown).Row
ul = rng.End(xlDown).Address
rng1 = Range(Cells(fl, clmn + 7), Cells(flult, clmn + 7)).Address
por = Application.WorksheetFunction.CountIf(Hoja1.Range(rng1), cel1)
If rng.Offset(, 1) <> "" And por > 0 Then
x1 = Application.WorksheetFunction.Match(cel1, Hoja1.Range(rng1), 0) - 1
fl1 = rng.Offset(x1, 0).Row
cel.Offset(, 1) = cel.Offset(, 1) + Hoja1.Range(Cells(fl1, clmn + 1).Address)
cel.Offset(, 2) = cel.Offset(, 2) + Hoja1.Range(Cells(fl1, clmn + 2).Address)
cel.Offset(, 3) = cel.Offset(, 3) + Hoja1.Range(Cells(fl1, clmn + 3).Address)
cel.Offset(, 4) = cel.Offset(, 4) + Hoja1.Range(Cells(fl1, clmn + 4).Address)
cel.Offset(, 5) = cel.Offset(, 5) + Hoja1.Range(Cells(fl1, clmn + 5).Address)
cel.Offset(, 6) = cel.Offset(, 6) + Hoja1.Range(Cells(fl1, clmn + 6).Address)
End If
If clmn > 1 Then cmp = rng.Offset(, -7)
If rng.Offset(, 1) = "" And cmp = cel1 Then
cel.Offset(, 6) = cel.Offset(, 6) + rng.Offset(, -4)
cel.Offset(, 5) = cel.Offset(, 5) + rng.Offset(, -5)
cel.Offset(, 4) = cel.Offset(, 4) + rng.Offset(, -6)
cel.Offset(, 3) = cel.Offset(, 3) + rng.Offset(, -1)
cel.Offset(, 2) = cel.Offset(, 2) + rng.Offset(, -2)
cel.Offset(, 1) = cel.Offset(, 1) + rng.Offset(, -3)
End If
Set rng = Hoja1.Range("A1:HG2098").FindNext(Range(ul))
Loop While rng.Address <> cuen
End If
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

Saludos.