excel - 空のセルまで連結

Question

セル A2 に対応する YR、セル B2 に対応する JJ、セル D2 に対応する YA という 3 つの列を連結するコードを作成しました。ボタンをクリックすると、G2への回答が表示されます。ここに私のコードがあります:

Sub Button1_Click()
Dim YR As String
Dim JJ As String
Dim YA As String
Dim RF As String

YR = Range("A2")
JJ = Range("B2")
YA = Range("D2")
RF = YR & "." & JJ & "." & YA
Range("G2") = RF

End Sub

私の問題は、空白のセルができるまでこのコードを機能させるにはどうすればよいですか?? 私はこれに関するコードを検索しました：

Range("A1").Select 
Do Until IsEmpty(ActiveCell.Value) 
‘codes here
ActiveCell.Offset(1,0).Select 
Loop

どうすれば自分のコードを作成できますか?