Есть ли способ присвоить массив значений в столбце одной переменной?

Question

Я пытаюсь присвоить все значения в столбце переменной, в настоящее время он не считывает их правильно. На данный момент нет ошибок компиляции или ошибок времени выполнения, просто логическая ошибка. Любое понимание было бы очень полезно, пожалуйста

Я уже пытался создать их как объекты и использовать "Set".

Dim countrow As Integer
Dim P(), T() As Variant
Dim i As Integer
Dim numrow As Long

numrow = Rows(Rows.Count).End(xlUp).row
P = Range(Cells(3, 1), Cells(numrow, 1)).Value
T = Range(Cells(3, 2), Cells(numrow, 2)).Value

ReDim P(numrow) As Variant
ReDim T(numrow) As Variant

countrow = 0

For i = 3 To numrow - 1
   If P(i) = 5 And T(i) = 100 Then
      countrow = countrow + 1                       
   End If
Next i

MsgBox (countrow)

Я ожидаю вывод 25, но фактический вывод равен 0. Это означает, что он не считывает истинное значение в каждой ячейке. Я пытаюсь подсчитать, сколько строк удовлетворяют как P = 5, так и T = 100 в своих ячейках.