Soru Textbox u belirlenen aralığa aktarmak

[sirkülasyon]

Ustam ; Aşağıda ki kod ile:
önce sayfanın B13:J32 aralığını temizlemek
sonra B13:B32 aralığını açmak
B13: J32 aralığına listboxu bir kere (mükerrer olmaksızın) aktarmak
daha sonra da B13:B32 aralığında boş hücre var ise gizlemek istiyorum.
ama B13 : B32 aralığına değil, B sütununda ki en son dolu hücrenin altına kayıt ediyor. Rica etsem yukarıda belirttiğim şekilde işlem yapması için yardımcı olabilir misiniz?

With Worksheets("Fiyat Araştırma")
Sheets("Fiyat Araştırma").[B13:J32].ClearContents
[B13:B32].SpecialCells(4).EntireRow.Hidden = [B13:B32].SpecialCells(4).EntireRow.Hidden = 1

    For i = 0 To ListBox1.ListCount - 1
    lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Cells(lastrow + 1, 2) = ListBox1.List(i, 0)
    .Cells(lastrow + 1, 3) = ListBox1.List(i, 1)
    .Cells(lastrow + 1, 6) = ListBox1.List(i, 2)
    .Cells(lastrow + 1, 9) = ListBox1.List(i, 3)
    .Cells(lastrow + 1, 10) = ListBox1.List(i, 4)
    [B13:B32].SpecialCells(4).EntireRow.Hidden = [B13:B32].SpecialCells(4).EntireRow.Hidden = 0
    Next i

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin

Dim m As Long, i As Long
With Worksheets("Fiyat Araştırma")
.Activate
.[B13:J32].ClearContents
.[B13:B32].EntireRow.Hidden = 0
m = 13
    For i = 0 To ListBox1.ListCount - 1
If WorksheetFunction.CountIf(.Range("B13:B32"), ListBox1.List(i, 0)) = 0 Then
    .Cells(m, 2) = ListBox1.List(i, 0)
     .Cells(m, 3) = ListBox1.List(i, 1)
      .Cells(m, 6) = ListBox1.List(i, 2)
      .Cells(m, 9) = ListBox1.List(i, 3)
       .Cells(m, 10) = ListBox1.List(i, 4)
       m = m + 1
    End If
    Next i
On Error Resume Next
    .[B13:B32].SpecialCells(4).EntireRow.Hidden = 1
    End With

Mükerrer durum olursa kayıt yapmayacaktır,.

 

[sirkülasyon]

Rabbim tüm müşgüllerinden seni rahata çıkarsın inşallah.