выберите до последней пустой строки, создайте формулу и скопируйте в другую ячейку

Question

Я новичок в VBA.Мне нужно создать объединение и скопировать значения из листа в другую ячейку

A   B   C   D
Field1  Game1   10  And
Field2  Game2   20  OR
Field3  Game3   50  OR
Field4          
Field5          
Field6          
Field7          

Я хочу скопировать в M1 (Cell) как Game1 = 10 OR Game2 =20 OR Game3 =50

Sub Fill_Formula()
    Dim rng As Range
    Dim sheet As Worksheet
    Dim Lastrow As Long

    Set sheet = ThisWorksheet.Sheets("Sheet1")

    Lastrow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row

    Set rng = Range("M1:M" & Lastrow)

    rng.Formula = "select distinct HH from " & 

    Sheets("Sheet1").Cells(3, 2) & "." & Sheets("Sheet1").Cells(1, 2).Value & "_" & Sheets("Sheet1").Cells(2, 2)

End Sub

Требуется объект