これら2つのマクロを組み合わせる方法は？ （エクセル2010）

私はマクロのプログラミングの経験が全くありません（しかし、私はまだマクロを記録することができます、そしてそれは私を助けるものです）

だから、私は全体のマクロコードに、マクロのこの部分を「スロット」する方法を質問している？ これが、マクロ全体です。

    Sub CaseOpen1()
'
' CaseOpen1 Macro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

そして、私が「スロットイン」したいマクロの一部です。

    CaseOpen1 Macro
 Dim rng As Range
 Set rng = ActiveSheet.Range("G5")
 '  
 '
 '
 'With rng.Interior
 '

おお、そして、あなたがコードの1つに誤りがあると思うならば、あなたは訂正して自由に感じることができます。あなたは私よりも上手くやるべきだ。

すべて助けていただければ幸いです。 :)

このような？

Sub Sample()
    Dim ws As Worksheet
    Dim rng As Range

    '~~> Change this to the relevant worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("G5")

    With rng.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub