VB Excel AutoFill方法失敗

'發現說檔案只有一個資料的時候存檔
會發生 Class Range 的 autoFill 方法失敗 的問題

猜測是因為autofill 無法作用在單一cell的 range上 range("B2:B2")
所以可能要走


       oExcel.Sheets(1).Application.Selection.Copy()
                oExcel.Sheets(1).Range("D2").Select()
                oExcel.Sheets(1).Application.Selection.PasteSpecial(Paste:=-4163, Operation:=-4142, SkipBlanks _
    :=False, Transpose:=False)