[ChrisGT7]

Το παρακάτω κομμάτι του κώδικα

    With Worksheets("ΔΕΔΟΜΕΝΑ")
        If .Rows("1:1").Find(CmbKAE.Text & " " & CmbKAE12.Text) Is Nothing Then Exit Sub
        .Activate
        .Rows("1:1").Find(CmbKAE.Text & " " & CmbKAE12.Text).Activate
    End With

αντικατέστησέ το μ' αυτό:

    With Worksheets("ΔΕΔΟΜΕΝΑ")
        If .Rows("1:1").Find(CmbKAE.Text & " " & CmbKAE12.Text) Is Nothing Then Exit Sub
        .Activate
        .Cells(Rows.Count, Columns.Count).Activate
        Application.Goto .Rows("1:1").Find(CmbKAE.Text & " " & CmbKAE12.Text)
        Unload Me
    End With

Δηλαδή ο ζητούμενος πίνακας να φαίνεται πως είναι ο πρώτος στο φύλλο εργασίας.