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.
Insert a blank row on a filtered sheet
-
- SilverLounger
- Posts: 2347
- Joined: 23 Feb 2010, 12:07
Insert a blank row on a filtered sheet
Best Regards,
Adam
Adam
-
- SilverLounger
- Posts: 2347
- Joined: 23 Feb 2010, 12:07
-
- Administrator
- Posts: 78788
- Joined: 16 Jan 2010, 00:14
- Status: Microsoft MVP
- Location: Wageningen, The Netherlands
Re: Insert a blank row on a filtered sheet
Dim r As Long
r = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Cells(r + 1, 1).EntireRow.Insert
r = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Cells(r + 1, 1).EntireRow.Insert
Best wishes,
Hans
Hans
-
- SilverLounger
- Posts: 2347
- Joined: 23 Feb 2010, 12:07
Re: Insert a blank row on a filtered sheet
Thanks foe the help Hans and i do really appreciate it.
Best Regards,
Adam
Adam