Every Two Rows - Insert Formula -> Continue for as many rows as there is data.

Hi Folks,

Can someone help me refine my idea?

I am looking for a loop or some piece of code that will insert a formula into cell E3, given the fact that there is data in row D4 and then continue (E#+2,D#+2) until there is no data in D#+2.

Letter Formula
A
A Insert
B
B Insert
C
C Insert
D
D Insert

Don't Insert

I'm thinking it would be something like this, but need to know how to point it to E#+2 and D#+2...

2
Range("E3").Select
If (Range("D4") <> "") Then

Range("E3").Value = myformula
GoTo 2

Thanks!