Ａ列がＫｅｙ、Ｂ列がＩｔｅｍが入っていたとして、一括でＤｉｃｔｉｏｎａｒｙに代入する方法はありますか

今はＦｏｒで処理していますが、
For r = 1 To 10000
dic.Add Cells(r, 1), Cells(r, 2)
Next r

だと読み込みに時間がかかり、配列のほうが早いくらいです