Sub test()
Application.ScreenUpdating = False
Dim Cel As Range, PlgF As Range, ResultF As Range, TpS$
Set PlgF = Range("_FilterDataBase")
Set ResultF = PlgF.Offset(1, 0).Resize(PlgF.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
For Each Cel In ResultF
TpS = TpS & Cel.Address & "/"
Next Cel
Range("V1") = TpS
Application.ScreenUpdating = True
End Sub