How to merge using vba

Hi everyone, i have a sample attached and as the code is running, i wanted to merge column F and G. Can someone please help me with this.

Thanks

Originally Posted by mehmetcik

Sub test()

    Dim LR As Single, x As Single, RowCnt As Single
    
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    RowCnt = 1
    
    For x = 1 To LR
        If Cells(x, 1).Value > Range("C1").Value - 90 Then
            Cells(RowCnt, 6).Value = Cells(x, 1).Value & " " & Cells(x, 2).Value
            RowCnt = RowCnt + 1
        End If
    Next x

End Sub

Hi Mehmetcik, thanks for this but i just wanted F and G merged. Not F G & H

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

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