以下是一个示例代码，用于比较和对齐Excel VBA中的空白和非空白单元格，并向下移动：

Sub CompareAndAlignCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 2 To lastRow
        ' 检查当前单元格是否为空白
        If ws.Cells(i, 1) = "" Then
            ' 如果当前单元格为空白，则向下查找非空白单元格
            ws.Cells(i, 1).Offset(1).Select
            Do Until ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Loop
            ' 将非空白单元格的值复制到当前单元格
            ws.Cells(i, 1).Value = ActiveCell.Value
        End If
    Next i
End Sub

这段代码假设要处理的工作表为"Sheet1"，并且数据从第2行开始。你可以根据实际情况进行修改。

这段代码首先获取要操作的工作表，然后使用End(xlUp)方法找到最后一行的行号。接下来，它使用一个循环来遍历每一行。在循环中，它检查当前单元格是否为空白，如果是，则向下查找非空白单元格，然后将非空白单元格的值复制到当前单元格。

请注意，此示例代码假设要对齐的单元格是在第一列中。你可以根据需要进行修改。