How to merge using vba

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