VBA insert row

[max8719]

Hi All,

I need a VBA to insert a copy of row 1 above cells that are not blank based on column A2<.

Row 1 is my header A1:L1.

Any ideas will be great.

 

[rafonga]

What do you mean by based on A2 ?

 

[max8719]

Apologies.

I mean column A:A excluding A1 because of the table header.

Thanks

 

[hicksi]

If you are trying to print out a list where you have inserted blank rows that will cause pagination of the data, then you might like to play with some of the print/header options.

But the answer to your question is:

Sub Macro1()
Dim iRow As Long
    For iRow = 3 To 1000
        If Application.WorksheetFunction.CountA(Range("A" & iRow & ":L" & iRow)) = 0 _
          And Application.WorksheetFunction.CountA(Range("A" & iRow + 1 & ":L" & iRow + 1)) <> 0 Then
            Range("A1:L1").Copy Cells(iRow, 1)
        End If
    Next
End Sub

 

[max8719]

Thanks but it dosnt seem to be working

 

[hicksi]

Thanks but it dosnt seem to be working

Maybe the line-above isn't blank. Could it have a space or two?