Boş satırları silen makro

[zeliha]

Sorum ekte.Çok teşekkür ederim.

 

[TRABLUS]

Sayın zeliha,
Lütfen sorunuzu açıklayıcı bir şekilde buraya da yazınız, böylelikle kimse boş yere dosyanızı indirmemiş olur.

 

[excelman]

Merhaba;

Sub Satırsil()
 Range("A1").Select
    Range("A1:A" & Range("A65536").End(xlUp).Row).Select
     Selection.Copy
      Range("B1").Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.SpecialCells(xlCellTypeBlanks).Select
   Application.CutCopyMode = False
  Selection.Delete Shift:=xlUp
 Range("A1").Select
End Sub