Selecting correct cell after Autofilter

**subtilty** · 04-19-2011, 10:26 AM

Hey all,

I am trying to copy some text and then search with an Autofilter and paste it into the first cell on the results.

For example:

Searched for Criteria = "2" in Column = "ID"

And get:
A B C
1 ID Location Address
4 2 The location The address

Now I want to paste the text for the new location into A4 but not sure how to select that cell after the search.

I currently have the following:

Sheets("Input").Select
    Range("B2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data").Select
        ActiveSheet.Range("$A$1:$X$19304").AutoFilter Field:=1, Criteria1:=Evaluate("idnum"), _
       Operator:=xlAnd
       'Here is the issue!
       Range("B2").Select  <--- This is where I need to select the right cell but not sure how. 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Thanks!

**tlafferty** · 04-19-2011, 10:33 AM

maybe use:

Range("B65536").End(xlup).Offset(-1,0).Select

This will allow you to be below all data and will move the selection to the first empty cell below data in the filtered B column. If you don't need to be below the data then remove this part: