How to merge using vba

how can this be done to select column F and G to merge. I got parts of it going but cant figure out how to select F and G and then merge

this is the code i have so far. can someone please look into this..thanks

For i = 1 To Range("F" & Rows.Count).End(xlUp).Row
    If Range("F" & i) = "" Then Exit For
        If Range("F" & i) > "" Then
        Range("F" & i).Select
        Slection.Merge
    End If
Next i