如何用VBA实现excel中改变所有单元格宽度为2

VBA 实现改变所有单元格高度、宽度分别为15、2 ？
另外，Range("R9:Z9").Select 选定单元格之后，如何将：“老婆我爱你，么么！”添加进去？

Sub aa()
With ActiveSheet.Cells
.ColumnWidth = 2
.RowHeight = 15
Range("R9:Z9").Select
Selection.Value = "老婆我爱你，么么！"
End With
End Sub