vb.net - セル範囲に数式を自動入力します。満たすのではなく満たす

Question

セル範囲 B6:AH6 に数式があります。B7 から始まる列に同じ数式を入力したいと考えています。範囲は動的なので、最後の行を見つける関数を作成しました。

自動入力の手順が正しく機能していません。私はいくつかのオンライン調査を行い、コードをまとめました。ただし、プロシージャを実行すると、ダウンではなくいっぱいになります。どうすれば埋まるでしょうか。

これが私が取り組んだ手順です：

まず、最後の行を見つける関数:

Public Function GetLastRow(ByVal rngToCheck As Excel.Range) As Long

Dim rngLast As Excel.Range

rngLast = rngToCheck.Find(What:="*", SearchOrder:=Excel.XlSearchOrder.xlByRows, SearchDirection:=Excel.XlSearchDirection.xlPrevious)

    If rngLast Is Nothing Then
        GetLastRow = rngToCheck.Rows.Count
    Else
        GetLastRow = rngLast.Rows.Count
    End If

End Function

これは、範囲を自動入力する私の手順です:

    Dim eeRefSheets As Excel.Worksheet
    Dim cellRange As Excel.Range

    For i As Long = 1 To 3 Step 1

        eeRefSheets = EmployeeSheets(i)

        With eeRefSheets
            cellRange = .Range("B6:H6")

            Dim lngLr As Long = GetLastRow(.Cells)

            cellRange.AutoFill(.Range("B6:H" & lngLr), Excel.XlAutoFillType.xlFillDefault)

        End With

    Next


End Sub