Excel VBAで配列検索結果を一括転記

Question

お世話になります。
Excel VBAで、二つのシートを配列に格納して
検索結果を一括で転記したのですが、データが多くなっているので
配列を使用して書き出したく検討しておりますが、
答えを格納して一括で書き出す方法がわかりません。
下記のような感じでイメージして作っておりますが
ご教示いただきたく、よろしくお願いいたします。

'Aシート（Sheet1)　範囲A1～D100
'AシートのKey　A列

'Bシート（Sheet2)　範囲A1～K30000
'BシートのKey　G列

Dim AsArray As Variant 'Aシート
Dim MsArray As Variant 'Bシート
Dim OutArray As Variant '検索一致データ格納配列

AsArray = Worksheet("Sheet1").Range("A1:D100")
MsArray = Worksheet("Sheet2").Range("A1:K30000")

For i = 1 To A_EndRow
  For k = 1 To B_EndRow
    If AsArray(i, 1) = MsArray(k, 7) Then
      ここでOutArray配列に検索結果を入れて
    End If
  Next k

Next i

'AシートのE列にBシートのG列で一致した行のK列の値を一括で入力
Worksheet("Sheet1").Range("E1:E100").Value = OutArray

Answer 1

関数をセルに一括入力してしまう手段もありかな、と

With Worksheets("Sheet1").Range("E1:E100")
  .FormulaR1C1 = "=INDEX(Sheet2!C11,MATCH(Sheet1!RC[-4],Sheet2!C7,0))"
  .Copy
  .PasteSpecial xlPasteValues
End With

Answer 2

この場合のOutArrayは2次元配列です。
サンプルとしては以下のような形になります。

Public Sub 配列設定()
    Dim OutArray As Variant
    ReDim OutArray(1 To 100, 1 To 1)
    OutArray(1, 1) = "A"
    OutArray(2, 1) = "B"
    OutArray(100, 1) = "X"
    Worksheets("Sheet1").Range("E1:E100").Value = OutArray
End Sub

E1にA
E2にB
E100にX が格納されます。