Insert Blank Rows Above another

[Ark68]

I need to insert 'x" number of rows above row(t)

How would I code this?

Here is my code so far ...

fnlrow = Application.Match("Please use reverse for comments.", .Range("A:A")) + 1 'the final row of the report
            add_rows = 52 - fnlrow 'the number of blank rows needing insertion to fill up the page
            fmacnt = Application.CountA(.Range("C" & bmk + 3 & ":C" & fnlrow - 1)) + 2 'how many rows in the bottom grid
            If fmacnt < 10 Then 'the bottom grid must be a minimum 10 rows. 
                fma_rows = 10 - fmacnt 'the number of empty rows to  be inserted to bring the row count to 10 in the lower gridt
           
                'insert fma_rows above the last row of the lower grid = fnlrow-1
                
            Else

Hope I was able to explain myself OK.

 

[Rick Rothstein]

I need to insert 'x" number of rows above row(t)

I am not sure what all those calculation were about; give this single line of code a try and see if it does what you want (it inserts 10 blank rows "above" the Row 't')...

Rows(t).Resize(10).Insert

 

[Ark68]

Hi Rick ...

With a bit of tweaking, this is exactly what I was needing.

Thank you

Jenn