inserting row macro

  • Thread starter Thread starter daroc
  • Start date Start date
D

daroc

hey guys,

i really need your help on this. i was able to do this last time but i
am totally lost right now.

I have a list of values from A1 to A600. I want to write a small macro
that would insert a row after A1, then A2 so something like this

Before
JAHSDSA
AKSHKAHD
AKJHDAKD
AKJHDAKD

AFTER
KAJHSD

AKDJHA

ASDHASD

ASHKAD


help would be greatly apprecaited. take care
 
Sub InsertRows()
Dim numrow As Long
For numrow = _
Cells(Rows.Count, "A").End(xlUp).Row _
To 2 Step -1

Rows(numrow).Insert
Next numrow
End Sub

HTH
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Question on Formatting Cell and Adding a Row in Excel 2013 1
Hide Cells 3
Repost:Automatically inserting a row in external workbook 3
Percentage Increase Tables 6
Selection copy and insert to other sheet (Macro) 8
Activating of Macro 1
Lookup Column Headings and Sum the Rows 3
VBA - retrieve data on last create named range from previous inserted named range 0

Back
Top