写一个vba代码，循环1到100行，如果D列的单元格为空个，将D列空格用当天日期填充，且将循环中D列有多少空格，即D列的填充个数返回给H2

以下是符合您要求的VBA代码：

Sub FillEmptyDate()
    Dim i As Integer
    Dim count As Integer
    count = 0
    
    For i = 1 To 100
        If Range("D" & i).Value = "" Then
            Range("D" & i).Value = Date
            count = count + 1
        End If
    Next i
    
    Range("H2").Value = count
End Sub

这段代码会循环遍历1到100行的D列单元格，如果单元格为空，则将其填充为当天日期，并记录填充的数量。最后，将填充的数量写入H2单元格中。