cerca vert variabile

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A17, B17")) Is Nothing Then
        cat = Range("A17").Value: If cat = "" Then Exit Sub           'assume categoria scelta
        cn = Application.WorksheetFunction.Match(cat, Sheets("lista").Range("A1:O1"), 0)    'individua la colonna
        lt = Replace(Cells(1, cn).Address(False, False), "1", "")   'trasforma cn nella lettera relativa
        nr = Cells(Rows.Count, cn).End(xlUp).Row 'conta il numero di righe
        
    If Not Intersect(Target, Range("A17")) Is Nothing Then
        Application.EnableEvents = False
        newlist = lt & 2 & ":" & lt & nr
        'assegna a B17 il nuovo elenco
        Range("B17").Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=" & newlist
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
        Range("B17:C17").ClearContents
        Application.EnableEvents = True
    ElseIf Not Intersect(Target, Range("B17")) Is Nothing Then
        tipo = Range("B17").Value: If tipo = "" Then Exit Sub       'assume tipo scelto
        lt2 = Replace(Cells(1, cn + 1).Address(False, False), "1", "") 'trasforma cn nella lettera relativa
        colonna = lt & 2 & ":" & lt2 & nr
        prezzo = Application.WorksheetFunction.VLookup(tipo, Sheets("lista").Range(colonna), 2, 0) 'assume il prezzo
        Range("C17") = prezzo       'assegna a C17
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Dim ur As Long

On Error Resume Next
ur = Cells(Rows.Count, 2).End(xlUp).Row
Set sh = Sheets("lista")

With sh
    .Range("f14").Value = Application.WorksheetFunction.VLookup(Cells(ur, 2).Value, .Range("f2:g10"), 2, False)
End With

End Sub