Sub KH1()<br/> Dim j As Integer<br/> Dim k As Integer<br/> k = 1<br/> j = Sheet1.UsedRange.Rows.Count * 2<br/> For i = 1 To j<br/> k = k + 2<br/> Cells(k, 1).Select<br/> Selection.EntireRow.Insert<br/> Next<br/>End Sub<br/>