Sütundan değer varsa yazdırma

[erchell]

Misal A sütununda değerler olsun. Fakat çoğu satırda a sütununda boş olsun. İstediğim B sütununa boş olanları değilde var olan değerleri sırasıyla yazdırmak.

 

[hamitcan]

Sub Aktar()
    For i = 1 To [a65536].End(3).Row
        If Cells(i, 1) <> "" Then
            c = c + 1
            Cells(c, 2) = Cells(i, 1)
        End If
    Next
    MsgBox "Bitti"
End Sub