Auto Filter Top Line copied to A400

HI,

I do a lot of auto filtering and need my clients name that is first in the filter to be copied into cell A400.

but as each filter gives me a different First row I dont know how to do this?

for example if i filter june its row 200 thats the first on the sheet but January would be row 2, but i need it to input into A400 the data In A thats first once the filter has been done?

any ideas?

Hello BigTandthepc,

The following code should work, regardless of which cell is first in your filtered results. Courtesy http://www.ozgrid.com/forum/showthread.php?t=23611, and tweaked for you:

Sub MoveResult()
    If ActiveSheet.FilterMode = True Then
         'Select cell in 2nd row first column
        ActiveSheet.UsedRange.SpecialCells _
        (xlCellTypeVisible).Areas(2).Columns(1).Cells(1, 1).Select
        Selection.Copy
        Range("A400").PasteSpecial
    End If
End Sub

Hi,

Thank you so much, its exactly what I needed thank you.

Awesome! You are very welcome. Happy coding....