Hi Mahesh, 'Try below code:- Sub insertt() Cells(1, 1).Select While ActiveCell.Offset(1, 0).Value <> "" ActiveCell.Offset(2, 0).Select Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.End(xlDown).Select Wend End Sub
'Thanks, -- DILIP KUMAR PANDEY MBA-HR,B COM(Hons.),BCA Mobile: +91 9810929744 [email protected] [email protected] New Delhi - 110062 On Fri, Jun 26, 2009 at 4:04 PM, Mahesh <[email protected]> wrote: > Hi All, > > Need Your help, > > I want 2 insert 2 empty rows between 2 rows containing data. > > Please suggest how to do it. > > Ex. : - > > Before > Khata No-127 Plot No-657,658 Mouza -kokpara Ps-dhalbhumgarh East > Singbhum Kursa Katta Plot No-549, Khata No-257, Mouza-badia, P.s.musabani, > Dist-east Singhbhum. East Singbhum Jale > After > Khata No-127 Plot No-657,658 Mouza -kokpara Ps-dhalbhumgarh East > Singbhum Kursa Katta Plot No-549, Khata No-257, Mouza-badia, > P.s.musabani, Dist-east Singhbhum. East Singbhum Jale > > > > -- > With Love, > Mahesh Bisht > > > > --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to [email protected] If you find any spam message in the group, please send an email to: Ayush Jain @ [email protected] or Ashish Jain @ [email protected] ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
