Insert a blank row on a filtered sheet

[adam]

Hi anyone,

I'm trying to figure out a code that would insert a blank row below the last visible data row on a filtered sheet.

My column headers are from A4:N4

Any help on this would be kindly appreciated.

Thanks in advance.

[adam]

Never mind I guess I've solved it.

[HansV]

Dim r As Long
r = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Cells(r + 1, 1).EntireRow.Insert

[adam]

Thanks foe the help Hans and i do really appreciate it.