Minor tweak to VBA code needed

Sub accoqteproofpricemerge2()
    
    Dim Prices, eg, p, r, c
    Dim i As Long
    
    Prices = Sheets("Formulas").Range("A1").CurrentRegion
    
    With Sheets("QUOTES")
        
        eg = .Range("E2", .Range("G" & Rows.Count).End(xlUp)).Value
        
        ReDim p(1 To UBound(eg, 1), 1 To 5)
        
        For i = 1 To UBound(eg, 1)
            r = Application.Match(eg(i, 3), Application.Index(Prices, 0, 1), 0)
            If IsNumeric(r) Then
                r = r + 1
                c = Application.Match(eg(i, 1), Application.Index(Prices, r, 0), 1)
                If IsNumeric(c) Then
                    p(i, 1) = Prices(r + 1, c)
                    p(i, 2) = Prices(r + 2, c)
                    p(i, 3) = Prices(r + 3, c)
                    p(i, 4) = Prices(r + 4, c)
                    p(i, 5) = Prices(r - 1, c)
                Else
                    p(i, 1) = "(Call for quote)"
                End If
            End If
        Next
        
        .Range("I2:M2").Resize(UBound(p, 1)).Value = p
        
    End With
    
End Sub