Ошибка метода Range для объекта _Worksheet: копирование значений ячеек в массив

Question

Попытка скопировать большой диапазон значений в массив для фильтрации данных для анализа. Получение следующей ошибки в 8-й строке кода после тусклых операторов, когда я выполняю код w / F8. Заранее благодарим за помощь!

Dim raw_data() As Variant, rc_fdata() As Variant, src_fdata() As Variant, fc_fdata() As Variant, efc_fdata() As Variant
Dim last_entry As Long, lr As Long, lc As Long
Dim rc_s As Single, src_s As Single, fc_s As Single, efc_s As Single
Dim rr As Range, rc_p As Range
Dim w As Integer, x As Integer, y As Integer, z As Integer, c As Integer, r As Integer
w = 1                                               'initialize array column counters
x = 1
y = 1
z = 1
lr = Sheet2.Range("D4").SpecialCells(xlCellTypeLastCell).Row     'holds last row
lc = Sheet2.Range("D4").SpecialCells(xlCellTypeLastCell).Column  'holds last column
ReDim raw_data(1 To lr, 1 To lc)
raw_data = Sheet2.Range(Cells(3, 5), Cells(lr, lc)) 'placing raw data in array

,