Auto Filter Top Line copied to A400

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