Maybe:

Sub stewfeed()
Dim rcell As Range
Dim wbk As Workbook
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wbk = ActiveWorkbook
Set ws = ActiveSheet

For Each rcell In ws.Range("E7:E" & ActiveSheet.UsedRange.Rows.Count)

    If rcell.Value <> "" Then
    
        ws.Range(rcell, rcell.Offset(4)).EntireRow.Copy
    
        Workbooks.Add
            ActiveWorkbook.SaveAs Filename:="D:\Common\data\YOUR FILE AND PATH\" & rcell.Value & ".xls", _
            FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False
            
        Set ws2 = Sheets("Sheet1")
        Set ws3 = Sheets("Sheet2")
        ws3.Name = "B"
        ws3.Cells.Value = wbk.Sheets("B").Cells.Value
            
        ws.Range(rcell, rcell.Offset(3)).EntireRow.Copy ws2.Range("A7")
        ws.Range("A6").EntireRow.Copy ws2.Range("A6")
    End If
    
Next rcell

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub