A quick and dirty possibility.
Sub Maybe()
Dim img As Object, i As Long, a As String
a = ActiveSheet.Name
ChDir "C:\E-Mail Downloads"    '<---- Folder where logos are stored
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"
If .Show = -1 Then
Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))
With img
    .ShapeRange.LockAspectRatio = False
    .Name = "Logo_One"
    .Left = Cells(1, 1).Left
    .Top = Cells(1, 1).Top
    .Width = Cells(1, 4).Left
    .Height = Cells(11, 1).Top
End With
End If
End With
Application.ScreenUpdating = False
ActiveSheet.Shapes("Logo_One").Copy
    For i = 2 To ThisWorkbook.Worksheets.Count
        Sheets(i).Select
        Cells(1, 1).PasteSpecial
    Next i
Sheets(a).Select
Application.ScreenUpdating = True
End Sub