Temat: pętla do wstawiania pustych wierszy

Witam,
Powoli uczę się tworzyć proste petle proszę o wskazówke jak przekształcić tą pętle tak aby w przypadku spełnienia warunku else
po wybraniu komórki poniżej aktywnej makro wstawiało by pusty wiersz powyżej aktywnej komórki Narazie makro wstawia tylko pustą komórke powyżej aktywnej a nie cały wiersz. Jak to przekształcić??

Sub moje()
Range("B1").select

Do
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1, 0).Select
End If
If ActiveCell.Row = 50 Then Exit Do
Loop

End Sub

Temat: pętla do wstawiania pustych wierszy

Selection.EntireRow.Insert ...

Temat: pętla do wstawiania pustych wierszy

dzięki działa:) jak należy teraz

Pozdrawiam