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