How to merge using vba

Maybe:

Sub biznezz()
Application.DisplayAlerts = False
For i = 1 To Range("F" & Rows.Count).End(xlUp).row
    If Range("F" & i) = "" Then Exit For
    If Range("F" & i) > "" Then
        Range(Cells(i, "F"), Cells(i, "G")).Merge
    End If
Next i
Application.DisplayAlerts = True
End Sub