Adding a line

[nikneven]

ok, here is my (i didn't write it, just using it) macro to search my data and if columns E and then f and insert two blank rows between each. for example, F is the last name and E is the first. I now have two blank lines inbetween people, even if they have the same last name.

Sub DTS9()
Dim i As Long
For i = Range("a" & Rows.Count).End(xlUp).Row To 2 Step -1
If Cells(i, 6) <> "" And Cells(i, 6) <> Cells(i + 1, 6) Or Cells(i, 5) <> Cells(i + 1, 5) Then
Cells(i + 1, 6).EntireRow.Insert Shift:=xlDown
Cells(i + 1, 6).EntireRow.Insert Shift:=xlDown
End If
Next
End Sub

How do i mod the macro so that after it inserts a copy of row 1 after the two blank lines?
so it would look like this:

same name
same name
blank row
blank row
copy of row 1
diff name
diff name
blank row
blank row
copy of row 1
third name
third name.


Thanks
Nik

 

[sweater_vests_rock]

hi nik.

try this out:

Sub DTS9()
    Dim i As Long
    
    For i = Range("a" & Rows.Count).End(xlUp).Row To 2 Step -1
        With Cells(i, 6)
            If .Value <> "" And .Value <> .Offset(1, 0).Value _
                Or .Offset(0, -1).Value <> .Offset(1, -1).Value Then
                
                For j = 1 To 3
                    .Offset(1, 0).EntireRow.Insert Shift:=xlDown
                Next j
                
                Range("E1:F1").Copy
                .Offset(3, -1).PasteSpecial
            End If
        End With
    Next
End Sub

cheers. ben.