How can I list all cells in a range with conditional formatting

The following code is listed as the acceptable sollution to #22801929. I'd like to run this code for range "A128:W139". Can you alter this code to do that?

Sub GetCF()

    Dim ws As Worksheet
    Dim Dest As Worksheet
    Dim cel As Range
    Dim Counter As Long
    Dim Conds As Long
   
    Set ws = ActiveSheet
    Set Dest = Worksheets.Add
    With Dest
        .[a1:e1] = Array("Address", "Condition #", "Type", "Formula 1", "Formula 2")
        .[D:e].NumberFormat = "@"
    End With
   
    Counter = 1
   
    For Each cel In ws.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
    For Each cel In ws.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
        For Conds = 1 To cel.FormatConditions.Count
            Counter = Counter + 1
            With Dest
                On Error Resume Next
                .Cells(Counter, 1) = cel.Address(False, False)
                .Cells(Counter, 2) = Conds
                .Cells(Counter, 3) = IIf(cel.FormatConditions(Conds).Type = 1, "Value", "Formula")
                .Cells(Counter, 4) = cel.FormatConditions(Conds).Formula1
                .Cells(Counter, 5) = cel.FormatConditions(Conds).Formula2
                On Error GoTo 0
            End With
        Next
    Next
   
    Dest.Columns.AutoFit
   
    MsgBox "Done; found " & (Counter - 1) & " conditions total"
   
End Sub