Dynamiczna iteracja po nr rzędu

Question

Cześć, piszę kod, który ma czytać zawartość tabelki (dla przykładu - wypełnionych 5 rzędów) i wkleić treść od komórki H5 w dół, w zależności od ilości wypełnionych wierszy.(zdjęcie dla przykładu)

Mój kod wygląda tak. Na razie generowanie tesktu rozpoczyna się z komórki H5.

Nie do końca wiem jak napisać aby generowanie rozpoczynało się od H5 i szło w dół tyle ile jest wierszy w tabeli. Dodatkowo, są odwołania na sztywno do 5. wiersza, a docelowo miałyby się zmieniać w zależności od rzędu

 Private Sub Generuj_Click()

Dim i As Integer

table = Range("E5", Range("F5").End(xlDown)).Rows.Count
Range("E5", Range("F5").End(xlDown)).Select

'Range("E5").Select

For i = 1 To table
    Range("H5").Select
    'Text = Range("H5", Range("H5").End(xlDown)).Rows.Count
    Range("H5") = "Inwestycja w spółkę " & Worksheets("Spolki").Range("E5") & " w kwocie przypadającej na PFR " & Worksheets("Dashboard").Range("C3") & " FIZ: " & Worksheets("Spolki").Range("F5") & " " & Worksheets("Dashboard").Range("C9")

Next i

Application.ScreenUpdating = True

End Sub