Sub Main()
    Range("B1") = "=IF(ISBLANK(A2),"""",A2-A1)"
    Range("B1").Resize(Range("A1").End(xlDown).Row).FillDown
End Sub