[ChrisGT7]

Κάτω από το End IF της φωτογραφίας, αντικατέστησε τις τέσσερις γραμμές με τα παρακάτω:

With Worksheets("DATA")
        If .Cells.Find(CmbKAE.Text & " " & CmbKAE12.Text) Is Nothing Then Exit Sub
    
        Dim MyCell As Range
        Set MyCell = .Cells.Find(CmbKAE.Text & " " & CmbKAE12.Text)
        LsBx.RowSource = "DATA!" & MyCell.Offset(1, 0).Address & ":" & .Cells(Rows.Count, MyCell.Column + 4).End(xlUp).Address
End With