Dim alan As Integer

                            Dim dosya As New Excel.Application

                            Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")

                            dosya.Visible = True



                            alan = 2

                            For i = 1 To 10



                                sayfa.Sheets("Sayfa1").range("B" & alan + 1) = TextBox1.Text

                                sayfa.Sheets("Sayfa1").Activate()

                            Next i

Böyle yapıyorurum eklediğim verileri excelde hep üstü üste aynı satıra yazıyor. Yani veri yazıldıktan sonra sonraki satıra geçip ekleme yapmıyor.