424オブジェクトが見つかりません

Question

これは私のコードです。私は最後に424エラーが発生しています。私が理解していることから、私はその作品のためのオブジェクトを必要としないので、なぜ私はこのエラーが出ているのか非常に混乱しています。

EDIT：最後の行でエラーが表示されます。

"ワークシート（" シート1 "）。レンジ（" B1 "）。PasteSpecial.Values"

Iはまた、値を範囲としてSrchRngを与えられています。デバッガで強調表示されている行は同じです。

Dim a As Range 
    Dim fd As FileDialog 
    Dim oFD As Variant 
    Dim AmazonFile As String 
    Dim Freight As Range 
    Dim OrderNo As Range 



    Set fd = Application.FileDialog(msoFileDialogFilePicker) 
    With fd 
     .ButtonName = "Select" 
     .AllowMultiSelect = False 
     .Filters.Add "Amazon File", "*.csv", 1 
     .Title = "Choose Text File" 
     .InitialView = msoFileDialogViewDetails 
     .Show 

     For Each oFD In .SelectedItems 
      AmazonFile = oFD 
     Next oFD 
     On Error GoTo 0 
    End With 
    MsgBox AmazonFile 

    Set fd = Nothing 
    Workbooks.Open (AmazonFile) 


    Dim myString As String 
    Dim SrchRng 



    Do 
     Set a = SrchRng.Find("Carrier - Fee", LookIn:=xlValues) 
      If Not a Is Nothing Then a.EntireColumn.Copy 
       Loop While a Is Nothing 
    ActiveWorkbook.Sheets.Add 

    Worksheets("Sheet1").Range("B1").PasteSpecial.Values 

Answer 1

問題は、このライン

Worksheets("Sheet1").Range("B1").PasteSpecial.Values 

このラインに

Worksheets("Sheet1").Range("B1").PasteSpecial xlPasteValues