どうぞ。

Sub Macro2()
Sheet1.Rows("1:7").RowHeight = 13.5
Sheet1.Columns("A:H").ColumnWidth = 8.38
End Sub