Aclaración de la línea de código VBA crear línea

H o l a: Anexo comentarios en la macro

Sub Lineas()
'Por.Dante Amor
    'Borrando líneas anteriores
    For Each s In ActiveSheet.Shapes
        If s.Name = "milineacreada" Then
            s.Delete
        End If
    Next
    '
    Set r = Range("B:B, G:G")
    Set b = r.Find("CALIF", lookat:=xlWhole)
    '
    If Not b Is Nothing Then
        celda = b.Address
        'Entra en un ciclo para buscar varias veces la palabra "CALIF"
        'Cada vez que encuentra la palabra repite el ciclo
        Do
            'Creando líneas
            'Después de encontrar la palabra "CALIF", pregunta si la celda de abajo
            'está vacía
            If Cells(b.Row + 1, b.Column) = "" Then
                'Si la celda de abajo está vacía entonces
                'Estable en r1 la ceda de abajo
                Set r1 = Cells(b.Row + 1, b.Column)
                fila = b.Row + 1
                'Empieza un ciclo para encontrar la última celda con datos
                Do While Cells(fila, b.Column - 1) <> ""
                    fila = fila + 1
                Loop
                'Cuando llegó a la última celda con datos,
                'Establece en r2 la última celda
                Set r2 = Cells(fila, b.Column + 2)
                'Crea la línea diagonal de la celda r1 hacia la celda r2
                Set linea = ActiveSheet.Shapes.AddLine(r1.Left, r1.Top, r2.Left, r2.Top)
                'le pone nombre a la línea (para después borrarla)
                linea.Name = "milineacreada"
            End If
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> celda
    End If
End Sub

Sal u dos