use active selection from outside

Hi all,
I need to search according a cell out of excel (ERP databases). I found a way: I select it in ERP, press CTRL + C, so I get it in memory. I move to excel and run macro, which paste it on unused cell somewhere down, copy it to excel memory and use it for filtering. How can I avoid these additional steps and use ctrl + C memory immediately?

My code (part in bold should be replaced):

Dim routing As String

Sheets("lists").Select
Range("B100").Select
    ActiveSheet.Paste
Sheets("lists").Range("B100").Select

routing = ActiveCell.Value
    
 
    Sheets("2014").Select
    
    Selection.AutoFilter Field:=6, Criteria1:=routing

Thank you for that. You cannot imagine how much time you can save if you are filtering 300 items. :-)
Petr