VBAソート機能が動作しない

Question

以下は、VBAコードの大部分の抜粋です。私は別のシートから貼り付けた後に値のリストを並べ替えるのに問題があります。値のリストは正常に貼り付けられ、並べ替えが行われる前に選択されます。また、私が使用しているソートコードは、それ自身でマクロで別々に使用されているとうまく動作します。何がここで間違っているかもしれないかについての示唆？おかげ

Dim ProductType As String 
Dim ValueDate As String 
ProductType = Range("I19").value 
ValueDate = Range("I18").value 

ActiveSheet.name = ProductType & " " & ValueDate 

Sheets("SensitivityResults").Cells(6, 1).Resize(653).Copy 
Sheets(ProductType & " " & ValueDate).Range("A3").PasteSpecial Paste:=xlValues 

Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess 

Answer 1

選択が正しく設定されていない可能性があり、

Sheets(ProductType & " " & ValueDate).Range("A3:A656").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess 

てみてください