[Excel] VBA Wstawianie wierszy i przenoszenie zawartości z komórek

Potrzebuję pomocy z napisaniem makra, które będzie miało za zadanie automatyczne wstawienie nowego wiersza w przypadku gdy dane w komórkach wykraczają poza kolumnę H i przeniesienie do niego tej zawartości poza kolumną H z powyższego wiersza.

W załączniku plik przedstawiający co chciałbym osiągnąć.

Witam,
Ponawiam prośbę o pomoc w napisaniu tego makra. Poniżej zamieszczam kawałek kodu, który zaznacza w wierszu wszystkie wypełnione komórki poza kolumną H, pozostaje napisać pętle, która by w przypadku wypełnienia wiersza poza kolumnę H automatycznie wstawiła nowy wiersz i przeniosła do niego tą zawartość itd.


Sub zaznacz_przenieś()
'Range("A1").Select
Dim lewa As Range
Dim prawa As Range

Set lewa = Cells(4, 8)
If IsEmpty(Cells(4, 8).Offset(0, 1)) Then
Else
Set prawa = Cells(4, 8).End(xlToRight)
End If

Range(lewa, prawa).Select
Selection.Cut
End Sub

Spróbuj z kopiowaniem w pętli. Przykład w załączniku.

Edit: Zacznij od Range.Clear (po With), przeoczenie...

adamas_nt dzięki wielkie oto mi chodziło.