セルの幅と高さサイズ指定

Sub セルの幅と高さサイズ指定()
    
    With ActiveSheet
        
        '自動調整確認用テスト文字
        '.Range("A1:G10").Value = "aaaaaaaa"
        
        'サイズ一括指定
        .Cells.RowHeight = 30
        .Cells.ColumnWidth = 5
        
        '基準値に戻す
        .Rows("2").UseStandardHeight = True
        .Columns("A").UseStandardWidth = True
        
        '自動調整
        .Rows("5").AutoFit
        .Columns("C:D").AutoFit
        
    End With
    
End Sub

RowHeightはポイント指定でColumnWidthは文字数指定です。セルを正確な方眼紙にしたいのであれば計算をしましょう。
以上。