How do i...get values of cell and put in one cell with underline for some of the cells

Option Explicit 'force variable declaration

Sub JoinTextAndUnderline()
    'variables
    Dim wsh As Worksheet
    Dim i As Integer, beg As Integer, lng As Integer
    Dim sTmp As String
    'initialize worksheet object
    Set wsh = ThisWorkbook.Worksheets("Sheet1")
    'set text to cell A1
    wsh.Range("A1") = wsh.Range("G1") & " " & wsh.Range("H1") & " " & _
        wsh.Range("I1") & " " & wsh.Range("J1") & " " & wsh.Range("K1")
    'change formatting
    'loop through the cells in column-range: (G:J)
    For i = 0 To 4
        sTmp = sTmp & wsh.Range("G1").Offset(ColumnOffset:=i) & " "
        Select Case i
            Case 1, 3
                'get the beginning of text to underline
                beg = Len(sTmp) - Len(wsh.Range("G1").Offset(ColumnOffset:=i).Text)
                'get the length of text to underline
                lng = Len(wsh.Range("G1").Offset(ColumnOffset:=i).Text)
                'underline
                wsh.Range("A1").Characters(beg, lng).Font.Underline = True
        End Select
    Next
    'clean up!
    Set wsh = Nothing
End Sub