Dear Sir,
I am using following code to add rows from A5:A498
It add rows in a way like, It unhide Row: A9:10, then A13:14
A11:A12 keep hidden, same way it goes all the way to A498
Sub addrow() Dim Ar As Areas
Set Ar = Range("A5:A498").SpecialCells(xlVisible).Areas...