Boş Satır Doldurmak

[memduh]

Merhaba Arkadaşlar. Aşağıdaki Kodu formdan aldım. Yalnız arkadaşlarımızın forma yazdığı Bve C sutununun 10 uncu satırından itibaran başlayıp D ve E sutununun 3 üncü satına başlayarak verileri atması mümkün mü? Saygılar.
KOD:
Sheets("Sayfa1").Range("d1:e100").ClearContents
For x = 1 To 100
If Sheets("Sayfa1").Cells(x, 2) <> "" Then
If Sheets("Sayfa1").Cells(x, 3) <> "" Then
c = c + 1
Sheets("Sayfa1").Cells(c, 4) = Sheets("Sayfa1").Cells(x, 2)
Sheets("Sayfa1").Cells(c, 5) = Sheets("Sayfa1").Cells(x, 3)
End If
End If
Next

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirin. Kırmızı renkli olanlar değiştirilen yerlerdir.

[vb:1:d76700c139]For x = 10 To 100
If Sheets("Sayfa1").Cells(x, 2) <> "" Then
If Sheets("Sayfa1").Cells(x, 3) <> "" Then
c = c + 1
Sheets("Sayfa1").Cells(c+2, 4) = Sheets("Sayfa1").Cells(x, 2)
Sheets("Sayfa1").Cells(c+2, 5) = Sheets("Sayfa1").Cells(x, 3)
End If
End If
Next
[/vb:1:d76700c139]