次の表で、サンプルマクロを実行すると、上から順番に連続した処理が行われます。
罫線を引くには、まず、Borders プロパティで、Range オブジェクトのBordersコレクションオブジェクトを参照します。 Bordersには、アイテムという定数があるのですが、それを指定しない場合は、個々のセルを囲む4本の罫線を参照します。 下図には、列ラベルを入れる行だけセルの背景色を変更してあります。ここに罫線を引きます。

以下のサンプルコードは、アイテムを指定しないので、個々のセルに対して同じ操作をしています。

Sub 範囲のセルに罫線()
    With Range("A2:D8").Borders
        .LineStyle = xlContinuous  '罫線の種類Value プロパティと同じ
        .Weight = xlMedium         '罫線の太さ
        .ColorIndex = 16           'カラーインデックスで色
    End With
End Sub
    

コードを実行すると、次のようになります。

セル範囲をRange("A2:D8")と指定していますが、
With Range("A2:D8").Bordersを、
With Selection.Bordersとして、選択範囲Selectionを使っても、シートの選択範囲に対して罫線が実行されます。 汎用的に使えるので、１つ作っておくと便利です。

Sub 選択範囲のセルに罫線()
    With Selection.Borders
        .LineStyle = xlContinuous  '罫線の種類Value プロパティと同じ
        .Weight = xlMedium         '罫線の太さ
        .ColorIndex = 16           'カラーインデックスで色
    End With
End Sub
    

罫線の太さと色を指定しただけですが、ただ枠を囲っただけの表よりも見やすくなると思いませんか？

罫線を引いたら、今度は消去するコードも必要です。 セル範囲をRange("A2:D8")の罫線をすべて消去する場合は、

Sub 罫線消去マクロ_1()
    Range("A2:D8").CurrentRegion.Borders.LineStyle = xlNone
End Sub
    

選択範囲Selectionを使って消去する場合は、

Sub 選択範囲の罫線を消す()
  Selection.Borders.LineStyle = xlLineStyleNone
End Sub
    

xlNone　と　xlLineStyleNone　は同じ意味で、罫線なしです。