Hücre dolu ise yan hücreye yaz

[sirkülasyon]

Es Selâmünaleyküm

For i = 5 To 50
 If Range("D" & i).Value = "" Then
    Range("E" & i) = TextBox1.Value
    Range("F" & i) = TextBox2.Value
    Exit For
 End If
Next i

Hücre dolu ise yan hücrelere Textboxları yazmak istiyorum ama yukarıdaki kod bir alt hücreye yazıyor.
Dolu olan hücrenin yanındaki hücreyeTextBox1'i diğer hücreye de TextBox2' yi nasıl yazabilirim?

 

[ÖmerFaruk]

Range("D" & i).Value <> "" Then

 

[sirkülasyon]

Allah razı olsun