如何在Excel中用宏实现自动插入2行?

Sub 宏1()
Range("A1").Select

Do While Selection <> ""
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.Offset(2, 0).Select
Loop

Range("A1").Select

End Sub