Copy top cell of filter results

[lky2k23]

I am trying to copy the top cell of a filtered results table to help with a check on another tab.

I tried recording a macro where i went to the top of the column then down 1 cell but it remembered the cell number(556) rather then down 1.

Thanks

[JBeaucaire]

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

[lky2k23]

Sorry can you give me a bit more help on that please? I am using Excel 2003. It colomn *J* i am looking to get the top value from.

[JBeaucaire]

What help would you like? I'm sure you can edit the column "B" references to column "J". What else would you like?

This is the target example in the code:

Sheets("Dest").Range("A1")

Edit that to your preferred destination.

[lky2k23]

Thank you!

[lky2k23]

Is there anyway to paste that result into the 'page' section of a pivot table?

[romperstomper]

You should be able to just assign the cell's value to the Currentpage property of the relevant page field in the pivot table.