Menghapus Otomatis Baris yang Kosong dengan VBA MACRO

Menghapus Otomatis Baris yang Kosong

Sub hapus_baris_kosong( )

Rng = Selection.Rows.Count

ActiveCell.Offset(0, 0).Select

For i = 1 To Rng

If ActiveCell.Value = "" Then

Selection.EntireRow.Delete

Else

ActiveCell.Offset(1, 0).Select

End If

Next I

End Sub

Mudah bukan? selamat mencoba :D :D