Copy top cell of filter results

One way:

Sub CopyFirst()
Dim LR As Long, MyRNG As Range

    On Error Resume Next
    LR = Range("B" & Rows.Count).End(xlUp).Row
    Set MyRNG = Range("B2:B82").SpecialCells(xlCellTypeVisible)
    MyRNG(1).Copy Sheets("Dest").Range("A1")

End Sub