Unir dos eventos IF

Buenos días, de ante mano agradezco la colaboración que me puedan brindar.

Necesito unir los dos eventos IF (foto 1 y foto 2) en uno solo, pero no se como hacerlo. Lo que sucede es que en el private sub Worksheet_Change(ByVal Target As Range) solo caben 80 fotos de la forma como lo tengo y necesito que sean 400, entonces uniendo de a dos o tres IF me daría la forma de insertar mas imágenes.

Gracias.

Los eventos son estos:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

'FOTO_1
If Target.Cells = Range("A49") Then
Application.ScreenUpdating = False
foto = Range("A49").Value
foto = Replace(foto, " ", "_")
foto = foto & ".jpg"
rutayarchivo = ActiveWorkbook.Path & "\TRABAJO\" & foto
Me.Shapes("NUMERO_FOTO").Delete
Set fotografía = Me.Pictures.Insert(rutayarchivo)
With Range("B47")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With fotografía
.Name = "NUMERO_FOTO"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set fotografía = Nothing
Application.ScreenUpdating = True
End If

'FOTO_2
If Target.Cells = Range("AN49") Then
Application.ScreenUpdating = False
foto = Range("AN49").Value
foto = Replace(foto, " ", "_")
foto = foto & ".jpg"
rutayarchivo = ActiveWorkbook.Path & "\TRABAJO\" & foto
Me.Shapes("NUMERO_FOTO_2").Delete
Set fotografía = Me.Pictures.Insert(rutayarchivo)
With Range("U47")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With fotografía
.Name = "NUMERO_FOTO_2"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set fotografía = Nothing
Application.ScreenUpdating = True
End If