Если вы хотите сохранить размеры, в которых вы объявили массив, измените размер источника в соответствии с исходным массивом.
Dim l1(1 to 71, 1 to 6) As Variant
l1 = wsTEMP.Range("g3").resize(ubound(l1 , 1), ubound(l1 , 2)).Value
Вставка ячеек листа в массив вариантов всегда создает двумерный массив на основе одного. Вы не можете это изменить.