Usean tyhjän rivin lisäys arvon vaihtuessa?

moduuliin...
nyt lisää 5 riviä sarakkeen G nimien muuttuessa, muuta sopivaksi

Sub lisääRivit()
Range("G1").Select
Do Until ActiveCell = ""
If ActiveCell.Offset(1, 0) = "" Then Exit Sub
If ActiveCell = ActiveCell.Offset(1, 0) Then
ActiveCell.Offset(1, 0).Select
Else
Rows(ActiveCell.Row 1 & ":" & ActiveCell.Row 5).Insert
ActiveCell.Offset(6, 0).Select
End If
Loop
End Sub

Keep EXCELing
@Kunde