Em xin nhờ giúp sửa code lọc dữ liệu ạ (2 người xem)

[dosontung86]

Em có đoạn code này, nhưng khi chạy nó làm thay đổi các border của trang kết quả. Mà e ko biết sửa như thế nào nên mong được anh chị giúp đỡ ạ.

Sub gpeLoc()
 Dim Cls As Range, Rng As Range, Sh As Worksheet, Rg0 As Range
 Dim Rw As Long, Col As Byte
 
 Set Rng = Range([g10], [g10].End(xlToRight))
 Rw = Rng.CurrentRegion.Rows.Count
 Set Sh = ThisWorkbook.Worksheets("DS")
 Col = Rng.Cells.Count
 Sh.[a4].Resize(Rw * Col, 7).Clear
 
 For Each Cls In Rng
    [FA7].Value = Cls.Value
    Range("A10").Resize(Rw, 6 + Col).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "FA7:FA8"), CopyToRange:=Range("FA10:FD10"), Unique:=False
        Set Rg0 = [FB10].CurrentRegion
        If Rg0.Rows.Count > 2 Then
            With Sh.[A65500].End(xlUp).Offset(2)
                .Value = Cls.Value
                Rg0.Offset(1).Copy Destination:=.Offset(1)
            End With
        Else
        End If
 Next Cls
 Sh.Select
End Sub