スキルアップ・問題解決なら、モーグにおまかせ！

行の高さを操作するには、RowHeightプロパティを使います。
次のサンプルでは、1行目から3行目の高さを指定した高さに変更しています。

Sub Sample1()

    Rows("1:3").Select
    Selection.RowHeight = 20.5

End Sub

次のサンプルは、行の高さを2倍にしています。

Sub Sample2()

    With Worksheets("Sheet1").Rows("4:6")
        .RowHeight = .RowHeight * 2
    End With

End Sub