尽管使用了`SpecialCells(xlCellTypeVisible)`，但选择可见单元格不起作用

Question

The idea of my code to Union cells with Interior.Color = vbYellow in addition to the cells selected manually.
Then intersect both ranges into one range from ("C:F").
The problem: there is a case (described below) that invisiable cells are added to the final range.
Although I have used SpecialCells(xlCellTypeVisible) ,But the issue still exists every time.
How to produce the issue?
With the attached picture:
(1) select range(“F3:F4”) V-2620 then fill color with yellow.
(2) on column C, filter on value 2620 then fill color with yellow for the visible cells from C3 till C8
The result is one range (“C3:F8”), But the expected should be two ranges C3:F4 & C7:F8
On the first comment,I will attach a link for my file and also a video to more clarify the issue.
In advance, thanks for your help.

Sub Automatic_Save_Selection()
 
   ActiveSheet.AutoFilter.ShowAllData
 
   Dim ws As Worksheet: Set ws = ActiveSheet
   Dim crg As Range
   Set crg = ws.UsedRange
   Set crg = crg.Offset(1, 0).Resize(crg.Rows.Count - 1, crg.Columns.Count)   'UsedRange except first Row
 
'____Find by Yellow Color_______________________
 
   With Application.FindFormat
     .Clear
     .Interior.Color = vbYellow
     .Locked = True
   End With
 
    Dim uRng As Range, cel As Variant, FirstAddress As Variant
    Set cel = crg.Find(What:=vbNullString, SearchFormat:=True)
 
    If Not cel Is Nothing Then
      FirstAddress = cel.Address
        Do
            If uRng Is Nothing Then
                Set uRng = cel
            Else
                Set uRng = Union(uRng, cel)
            End If
                Set cel = crg.Find(What:=vbNullString, after:=cel, SearchFormat:=True)
        Loop While cel.Address <> FirstAddress
    End If
 
'_____Union (Find by Yellow Color) with Manual Selection__________________
 
  Dim rng As Range
 
  If Not uRng Is Nothing Then
     Set rng = Union(Selection.SpecialCells(xlCellTypeVisible), uRng)
   Else
     Set rng = Selection.SpecialCells(xlCellTypeVisible)
  End If
 
  Dim TrimmedRange As Range
   Set TrimmedRange = Intersect(rng, ws.UsedRange.Offset(1))
    Intersect(TrimmedRange.EntireRow, ws.Range("C:F")).Select
 
End Sub

Answer 1

As I said in my above comment, the code logic is OK, but it looks that using Find with searchingFormat parameter, the filter is automatically switched to ShowAllData ... That's why, Selection.SpecialCells(xlCellTypeVisible) returned all cells on the respective column , not the (filtered) ones as you imagined.

In order to obtain what you want supposing that you need it, not only playing with VBA, you should filter again the range in code, after the Find part loop:

If so, please include the next line after or before Dim rng As Range :

   ws.Range("C2:F8").AutoFilter field:=1, Criteria1:="2620"