Add rows
Closed
nilin
-
Jul 22, 2010 at 09:36 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Jul 22, 2010 at 02:12 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Jul 22, 2010 at 02:12 PM
Related:
- Add rows
- 2007 microsoft office add-in microsoft save as pdf or xps - Download - Other
- How to add @ in laptop - Guide
- How to add songs to sound picker - Guide
- Add messenger to home screen - Guide
- How to add photo in word resume - Guide
1 response
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jul 22, 2010 at 02:12 PM
Jul 22, 2010 at 02:12 PM
Sub InsertRow()
Dim lMaxRows As Long
lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
Do While (lMaxRows > 0)
Rows(lMaxRows + 1 & ":" & lMaxRows + 2).Insert
Cells(lMaxRows, "A").Copy
Range(Cells(lMaxRows + 1, "A"), Cells(lMaxRows + 2, "A")).PasteSpecial
lMaxRows = lMaxRows - 1
Loop
End Sub
