VBA to create new CSV file from the existing one with modified email address

Guram_Bregadze 

Here is a macro:

Sub CreateCSV()
    Dim sFile As Variant
    Dim csv As Workbook
    Dim wsh As Worksheet
    Dim r As Long
    Dim m As Long
    Dim sMail As String
    sFile = Application.GetOpenFilename(FileFilter:="CSV files (*.csv), *.csv")
    If sFile = False Then
        Beep
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Set csv = Workbooks.Open(Filename:=sFile)
    Set wsh = csv.Worksheets(1)
    m = wsh.Range("A" & Rows.Count).End(xlUp).Row
    For r = 2 To m
        sMail = wsh.Range("B" & r).Value & Left(wsh.Range("C" & r).Value, 1) & _
            Split(wsh.Range("C" & r).Value)(1) & "@abc.com"
        wsh.Range("E" & r).Value = LCase(sMail)
    Next r
    csv.SaveAs Filename:=Replace(sFile, ".csv", "_new.csv"), FileFormat:=xlCSV
    csv.Close SaveChanges:=False
    Application.ScreenUpdating = True
End Sub