VBAそのままコピペ「オートフィルタ」

Sub AutoFilter1()
'(設定)
 ActiveSheet.Range(Range("A1"), Cells(Rows.Count, "V").End(xlUp)).AutoFilter Field:=〇列目, Criteria1:="フィルタする文字列"
'(設定-不等号を使う場合)
ActiveSheet.Range(Range("A1"), Cells(Rows.Count, "V").End(xlUp)).AutoFilter Field:=〇列目, Criteria1:=">="＆数値
'(操作文)

'(フィルタ解除)
Activesheet.ShowAllData

End Sub

関数化するなら(範囲の行、ﾌｨﾙﾀの列、検索文字)
Sub AutoFilter1(r　as　string,r2　as　Long,w　as　string)
'(設定)
 ActiveSheet.Range(Range("A1"), Cells(Rows.Count, r).End(xlUp)).AutoFilter Field:=r2, Criteria1:=w

End Sub
呼び出し
call　AutoFilter1(”行のアルファベット”,フィルタする行(数字),"フィルタする文字列")

'(結果を選択)
Range(Range("A2"), Cells(Rows.Count, "V").End(xlUp)).select