ここでの挑戦は、セルへのデータの挿入と書式です。詳細についてあまり解説はしませんが、自身でプロシージャを解析するのも勉強になると思いますので、さまざまな書籍を参考にしてください。では、まず下の記述例をやって見ましょう。

                        
    Sub 練習()
        Worksheets("Sheet1").Range("A1") = 100

        With Worksheets("Sheet1").Range("A1")
            .Font.Bold = True
            .Font.ColorIndex = 3
            .Interior.ColorIndex = 10
            .ColumnWidth = 20
            .RowHeight = 20
        End With
    End Sub
                        
                    

VBAコードの説明をします。

1行目・・・練習1というプロシージャ名にする。
2行目・・・ワークシートのSheet1のセルA1に「100」という値を代入（挿入）する。
3行目・・・空白行にして、プロシージャの区切りを整理する。（空白行は処理には影響しない）
4行目・・・Withステートメントを利用している。（書式は後で記述）

ワークシート「Sheet1」のセルA1に太字、文字色を赤、塗りつぶしを緑、セル幅を20pt、セルの高さを20ptに設定する。

10行目・・・Withステートメントの終了を宣言。

セルにデータを挿入するには、Range（"A1"）＝値という記述をします。前述したように、直接Rangeから指定はしませんので、オブジェクトはワークシートから指定をします。「Sheet1」のワークシートのセルA1に100の値を挿入するのであれば、

Worksheets("sheet1").Range("a1") = 100　となります。

次に書式ですが、フォントに太字を入れるのであれば、

Worksheets("sheet1").Range("a1").Font.Bold = True　となります。

また、文字色を赤にするのであれば

Worksheets("sheet1").Range("a1").Font.ColorIndex = 3　となります。

１つの書式だけであれば、このような記述でもかまいませんが、複数の書式をつけるのであれば、Withステートメントを利用します。Withステートメントを使って処理を記述する場合は、必ず「．」から始まるようにし、1行に１つの処理を記述します。

上記の例の動作はどちらも同じです。Withステートメントを使用したほうが、記述も簡潔で見やすいです。複数の設定をあるオブジェクトにするのであれば、Withステートメントを利用しましょう。

次に書式設定で、セルの幅や高さを指定するときには、ColumnWidht（セル幅）とRowHeight（セル高）を使います。例題に使用されたように指定する値は＝を付けた後に、記述します。
また、この数字はポイント単位です。高さの場合は、1ptが約0.35ｍｍとなります。
この例題のVBAを実行すると、Excel上での結果は以下のように反映されます。