Sub test() Dim j As Integer, k As Integer, m As Integer j = Range("a1").End(xlDown).Row k = 3 m = 2 Do If k Mod 2 = 1 Then Range(Cells(k, 1), Cells(k + 1, 2)).EntireRow.Insert k = k + 2 * m ' MsgBox k End If If Cells(k, 1) = "" Then Exit Do Loop End Sub
Sub test() Dim j As Integer, k As Integer, m As Integer, n As Integer Worksheets("sheet1").Cells.Clear Worksheets("sheet2").Cells.Copy Worksheets("sheet1").Range("A1") j = Range("a1").End(xlDown).Row m = 2 'no. of rows after which blank rows to be inserted k = m + 1 n = 2 'no. of blank rows to be inserted Do If k Mod 2 = 1 Then Range(Cells(k, 1), Cells(k + n - 1, 1)).EntireRow.Insert k = k + 2 * m 'MsgBox k End If If Cells(k, 1) = "" Then Exit Do Loop End Sub
DON'T MISS