use this code Sub InsertRows() Dim WkSht As Worksheet Dim Rng As Range Set WkSht = ThisWorkbook.Worksheets("Sheet1") For x = 2 To WkSht.Range("A65536").End(xlUp).Row If WkSht.Range("A" & Trim(Str(x))) <> "" Then Application.StatusBar = "Inserting Rows on Row : " & Trim(Str(x + 1)) WkSht.Range("A" & Trim(Str(x + 1))).EntireRow.Insert WkSht.Range("A" & Trim(Str(x + 1))).EntireRow.Insert End If Next x End Sub
On Wed, Jun 29, 2011 at 4:59 PM, Rakesh Sharma <rksharma...@gmail.com> wrote: > Dear all, > > > please help > > thanks in adv. > -- > Regards > Rakesh Sharma > > > -- > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- Regards Vasant skype Id: vasantjob vasant...@gmail.com -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel