Insert cell text every 5 rows in a column

  • Thread starter Thread starter Mike Mike
  • Start date Start date
M

Mike Mike

I need to go from this:
apple
orange
widget
7845
santa
34blue
test
witch
never
45hold
74more

to this:
apple
orange
widget
7845
santa
TEXT
34blue
test
witch
never
45hold
TEXT
74more

Anyone know how to do this?

Regards
Mike
 
Sub InsertRow()
Dim LastRow As Long
Dim RowNdx As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = 6 To LastRow Step 6
Rows(RowNdx).Insert
Next RowNdx
End Sub
 
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

Macro to add Multiple rows in same sheet 1
Witch is the longest text in a column 6
Macro to add numbers in a text string 5
Running Totals Problem 2
Repeat values in column A a certain number of times depending on thevalue in column B 8
Extract data from list -exluding blank cells 8
Retrieve Column Header for Specific Data in a Row 3
Extracting values from a column to a new column 5

Back
Top