Combine Private Sub and Private Function VBA code

Hi all,

I wrote two VBA codes:

1st: generate all sames values for all filtered columns
2nd: when there's no filter applied, the selected value applies to only one row, not for the whole column as 1st code

I tried both code and they work perfectly but have two run twice SEPARATELY.

Is there a way we can combine this so it runs by itself all together

Please find code below.

Thanks so much!!!

Please Login or Register  to view this content.

Please Login or Register  to view this content.

I am wondering if we can call IsFilter(ActiveSheet) for the main macro. Please share what you think is the best for this case. I really appreciate it!