excel de boş hücreleri silme ve kalanları sola yaslama

[f_alkan]

ekteki örnek dosyada dosya adı ( sss ) boş hücreleri silmek ve dolu olanları da sola yaslamak istiyoruz.
yardımcı olur musunuz?

 

[metin_1]

Sub BoslukSil()

On Error Resume Next

Dim i As Long
For j = 2 To 30
For i = 2 To 42300
If Cells(i, j).Value = "" Then
Cells(i, j).Select
Selection.Delete Shift:=xlToLeft
End If
Next i
Next j
End Sub