Inserting Rows Between Rows With Data

[Solon Aquila]

My apologies for this post, but apparently I can't even figure out how to apply information that's already in the forums.

I receive worksheets with two columns of data: Degrees and Distance
(How far something is away at each degree of rotation)

I need to interpolate the data down to half, quarter, and eighth degree increments.

I manually add rows between each degree the copy/paste the .125, .250, .375 etc into each cell in the Degrees column.

I manually enter the formulas between the data in the Distance column (copy/paste after the first batch).

It works fine, but increasing 360 entries to 2800 entries is a LOT of copy-paste.

I tried starting easy: select active cells in a column (macro version of Ctrl+Shift+Down) on the idea that I don't want to insert rows between ALL the rows in the spreadsheet, just however many degrees of data we've been given. I failed even selecting active rows.

Here's my 'step 1' that failed:
(Got it from http://www.mrexcel.com/forum/showpost.php?p=2864532&postcount=3).


Sub InsertRowsBetween()
Range(Range("A1"), Range("A1").End(xlDown)).Select
End Sub


Any ideas what I missed would be appreciated and, if possible, a note about what each step does: I want to learn how to create, not just copy other people's posts.

Thank you,

Solon
PS - and how do I post a link to a thread, not just a post? My brain must really be ailing today!

 

[hiker95]

Solon Aquila,

Thanks for the feedback.

You are very welcome. Glad I could help.

Come back anytime.