Boşluk içeren satırları boşluksuz listeleme

[freewalker]

Selam arkadaslar,

Sheet1 a dan gelen verileri Sheet2 A ya listelemek istiyorum.
Sorun eger Sheet1 A da bos sutun varsa Sheet2 A da listelerken bosluklari atmasini istiyorum. Ornek dosyada ne yapmak istedigimi yazdim.

Eger yardimci olursaniz cok sevinecegim.

Saygilarimla

 

[velostar]

denedim bakalım oldu mu?

makro "yardım"ın yanındaki gülen surata bağlı.

 

[Necdet]

Benzer ama başka bir kod

Sub Macro1()
    Sheets("sheet2").Range("A:A").ClearContents
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub