range（）のパラメータとしてvariable.valueをどのように追加しますか？

Question

私は最初の3つの空の行をマージし、3つのマージされたセルにActivity＃を書き込もうとしています。 3つのカスタムセルを選択してマージの準備をする方法もわからない。私はどこでもオンラインで確認しましたが、範囲（A1：B2）には常に明確な範囲が与えられています。たとえば、range（variable_A1：variable_B2）と書くにはどうすればいいですか？

これは、これまでの私のコードです：

Private Sub OKButton_Click() 

'Make Sheet1 active 
Sheet1.Activate 

Dim beginning 
Dim ending 
Dim selection 

beginning = Cells(empty_row.Value, 2) 
ending = Cells(empty_row.Value + 2, 2) 


'this is supposed to select 3 cells, but it doesn't work 
selection = Range("beginning:ending").Select 
'figure out how to merge cells below 


Cells(empty_row.Value, 2).Value = "Activity" & Activity_number.Value 


Dim i As Integer 
For i = 1 To nb_subs.Value 
    Cells(empty_row.Value + i + 2, 2).Value = "Sub-Activity" & i 
Next i 

Answer 1

Private Sub OKButton_Click() 

Dim beginning As Range 
Dim ending As Range 
Dim selection As Range 

With Sheet1 

    Set beginning = .Cells(empty_row.Value, 2) 
    Set ending = .Cells(empty_row.Value + 2, 2) 


    'this is supposed to select 3 cells, but it doesn't work 
    Set selection = .Range(beginning, ending) 
    selection.Merge 


    selection.Value = "Activity" & Activity_number.Value 


    Dim i As Integer 
    For i = 1 To nb_subs.Value 
     .Cells(empty_row.Value + i + 2, 2).Value = "Sub-Activity" & i 
    Next i 
End With