EXCEL VBA 年加1911

Sub 年計()
Range("D2").Select
While (ActiveCell.Value <> Empty)
ActiveCell.Value = ActiveCell.Value + 1911
ActiveCell.Offset(1, 0).Select
Wend
End Sub