excel - VBA - セル範囲のコピー (ランダム行)

Question

初めてのユーザーなので、質問が形式のガイドラインに従っていない場合はお詫び申し上げます。

調整したい毎日変化するデータのシートがいくつかあります。ある特定のシートには、顧客のリストが詳細に記載されています。調整の一環として、これらの会社の 1 つを無作為に選択し、それらの特定の詳細をリストする必要があります。

これらの詳細は、列 3、5、7、14、および 20 にあります。

以下に、1 日 (最後の行) に何人の顧客がいるかを計算し、ランダムな顧客を取得してデータをリストするコードを貼り付けました。

ただし、実行時エラー 450:間違った数の引数または無効なプロパティの割り当てが発生し続けます。

誰でも私を助けることができますか？

'Regency
        Dim Regrows As Integer
        Dim RegCust As Integer
        Dim Regcustomer As Range

        AgedDebtors.Activate
        AgedDebtors.Sheets("Regency").Activate
        Regrows = Range("C" & Rows.Count).End(xlUp).Row
        RegCust = Int((Regrows - 45 + 1) * Rnd + 45)

        With AgedDebtors.Sheets("Regency")
            Regcustomer = Range(Cells(RegCust, 3), Cells(RegCust, 5), _
                                Cells(RegCust, 7), Cells(RegCust, 14), _
                                Cells(RegCust, 20))
            Regcustomer.Activate
        Selection.Copy

        End With