copy a cell value into a table based of the value of adjacent dropdown

aconstant1735 Try the following codes. See attached file.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fWhat As String
Dim fRng As Range
    
    If Not Intersect(Target, Range("C4:C7")) Is Nothing Then
        Application.EnableEvents = False

        fWhat = Target.Offset(0, -2).Value2
        
        With Sheets("Ladder")
            Set fRng = .Range("A14:A101").Find(fWhat, [A14], xlFormulas, xlPart, , , False)
            
            If Not fRng Is Nothing Then
                fRng.Offset(0, 1) = Target.Value
            End If
        End With
        
    End If
    Application.EnableEvents = True
End Sub