Concentrate email address with selection

Hello all,

Hope someone can help.
In the attached i have names in column A and in B the person can choose either
yes/no.
If they choose yes then their name is copied to sheet2 when they press the make selection button.
What i need help with is i would like the company email address (@companyname.com) to concentrate to what ever names are copied in sheet2.

Thanks in advance.

Hi mdshotgun
working with your code try....

Option Explicit
Sub makeselection()
    Dim rng As Range
    Dim cell, Temp As String
    Application.ScreenUpdating = False
    Set rng = Range("B3:B27")
    For Each cell In rng
        If cell.Value = "yes" Then

            Temp = cell.Offset(0, -1).Value
            cell.Offset(0, -1).Value = Replace(cell.Offset(0, -1).Value, " ", ".") & "@companyname.com"
            cell.EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
            cell.Offset(0, 1).Font.ColorIndex = 2
            cell.Offset(0, -1).Value = Temp
        End If
    Next
    With Sheets("sheet2")
        .Columns("B").Hidden = True
        .Range("a1:aa200").Interior.ColorIndex = xlNone
    End With
    Application.ScreenUpdating = True
End Sub