空白行を削除するマクロ

１　特定の列だけで空白判定を行い、空白セルの行を削除

Sub DeleteEmptyRowInColumnA()
    'A列で空白行判定して削除
    Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub 

２　特定列だけではなく、1行全体で空白判定を行い、完全に空白な行を削除

www.relief.jp

Sub DeleteEmptyRow()
    Dim i
    For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If WorksheetFunction.CountA(Rows(i)) = 0 Then
            Rows(i).Delete
        End If
    Next
End Sub