How to remove unnecessary cells?

Hello,

I'm wondering if someone can help me with this problem.
Attached document is here: ones.xlsx

There is a table with 4 rows.
First row are numbers from 1 to 20.
Second row is frequency of each number.
Third row is a "filter" that marks which numbers appear 3 or more times (Yes) and which numbers appeared less then 3 times (No).
Fourth row is here to highlight numbers that are marked with "Yes" .

The problem is that I want these numbers that are marked with "Yes" to be ordered like shown in the document from A8:F8.
I don't want any empty cells between these numbers or cells that contain "-" ...


Is this possible to do automatically with functions because I dont want to use clicks (to filter) and macros??

sorry for double threads, something blocked me when I tried to post the thread ...