VBA Index関数 の使い方。行と列の指定でセル値の抽出

Option Explicit

Sub Index関数Test1()
    Dim sKa As Variant, sKb As Variant
    Dim MVal As Variant
    Dim DataRange As Range
'検索範囲をセットする
        Set DataRange = Range("B6").CurrentRegion
        Worksheets("Sheet1").Select
'検索値の入力
        sKa = Range("L1")
        sKb = Range("L2")
'エラーストップを無視するコード
        On Error Resume Next
'コード項目列で検索する
        MVal = WorksheetFunction.Index(DataRange, sKa, sKb)
        Range("L3") = MVal
'エラー無視を解除する
        On Error GoTo 0
End Sub

Sub Index関数Test2()
    Dim Arow As Long, Acol As Long
    Dim sKc As Variant, sKd As Variant
    Dim MValR As Variant, MValC As Variant
    Dim DataRange As Range
    Dim DataRRange As Range
    Dim dataCRange As Range
'検索範囲をセットする
        Set DataRange = Range("B6").CurrentRegion
        Worksheets("Sheet1").Select
'データ表の行数を調べます
        Arow = DataRange.Rows.Count
'データ表の列数を調べます
        Acol = DataRange.Columns.Count
'行範囲をセットする
        Set DataRRange = Range(Cells(6, 5), Cells(Arow + 5, 5))
'列範囲をセットする
        Set dataCRange = Range(Cells(16, 2), Cells(16, Acol + 1))
'検索値の入力
        sKc = Range("L30")
        sKd = Range("L31")
'エラーストップを無視するコード
        On Error Resume Next
'コード項目列で検索する
        MValR = WorksheetFunction.Index(DataRRange, sKc)
        Range("M30") = MValR
'11行目で検索する
        MValC = WorksheetFunction.Index(dataCRange, sKd)
        Range("M31") = MValC
'エラー無視を解除する
        On Error GoTo 0
End Sub