Pętla przypisująca wartość wyszukanej zmiennej

Cześć,

Chciałbym napisać makro które wyszukuję w tabeli daną wartość a następnie tworzy tablice z daną wartością.

Czyli sprawdza na jakich pozycjach znajduję się S5 a następnie przypisuje w tabeli wartość od E8 do E12.
Napisałem makro wyszukujące dany rząd i liczbę znalezionych przypadków które bez wyżej zdeniniowanych zmiennych wygląda tak, ale nie wiem jak przypisać tutaj te wartości z kolumny 5

For mt = 2 To Sheets("Properties").Cells(2, 1).End(xlDown).Row
    If Sheets("Properties").Cells(mt, 1).Value = "S5" Then
        n = n + 1
    End If
Next mt

Dzięki za pomoc

Nie wiem czy dobrze rozumiem chodzi o utworzenie tablicy z wartościami z kolumny E?

  Dim ValArray() As Double
  Dim mt, n As Integer
  
  n = 0
  For mt = 2 To Sheets("Properties").Cells(2, 1).End(xlDown).Row
    If Sheets("Properties").Cells(mt, 1).Value = "S5" Then
        ReDim Preserve ValArray(n)
        ValArray(n) = Val(Sheets("Properties").Cells(mt, 5))
        n = n + 1
    End If
  Next mt

Tak dokładnie o to chodziło. Dzięki wielkie ratujesz mi życie :)