＜Advavcedfilterコード例＞

With SH1
　.Range(.cells(1,1),.cells(LR,LC)).AdvancedFilter _
　　　Action:=xlFilterCopy, _
CriteriaRange:=.Range(.cells(1,20),.cells(2,21)), _
　　　Unique:=True
End With

これを少し簡単にしたい。
□フィルタ対象レンジ
□検索条件レンジ
□コピー先レンジ

などを変数であらかじめ指定席する形を作ればコードとしても読みやすい。

応用時の効率も上がる。

そういうモジュールというかユニットを作っておくと、必要なときに素早く対応ができる。

だけど、コピー先のレンジを簡単な.cell(1,1)みたいな書き方をするとうまく動かない事があるんだよなぁ。
少しテストが必要だろう。