Option Explicit
Sub test()
Dim i As Integer, t As Variant, j As Integer, t2 As Variant, x As New Collection
If Selection.Cells.Count < 256 Then Exit Sub
Application.ScreenUpdating = False
t = Split(Selection.Address(0, 0), ",")
For i = LBound(t) To UBound(t)
t2 = Split(t(i), ":")
If t2(0) = t2(1) Then
x.Add t2(0)
Else
For j = t2(0) To t2(1)
x.Add j
Next j
End If
Next i
For i = x.Count To 1 Step -1
Rows(x(i)).Insert
Next i
Application.ScreenUpdating = True
End Sub