Excel - Error 13 no coinciden los tipos

Hola buenas tardes, tengo este código, lo que hace es buscar en una tabla un folio y traerme de vuelta los datos en unas celdas, lo que pasa es que al bucar algo que si se encuentra todo bien , pero cuando surge un error me sale el mensaje y me marca el error aqui Sheets("Entradas").Range("H2") = mat & "." & backrest & "." & "P" & grit
Podrian ayudarme? envio el archivo, disculpen si tiene errores soy nuevo en esto
Sub Buscar()
Dim mts As Variant
Dim selecrango As Range
Dim mat As Variant
Dim grit As Variant
Dim backrest As Variant
Dim ubi As Variant
Dim folio2 As Variant

folio = Sheets("Entradas").Range("D5").Value
Ulti1 = Sheets("Concentrado_Existencias").Cells(Rows.Count, "a").End(xlUp).Row

Set selecrango = Sheets("Concentrado_Existencias").Range("A2:K" & Ulti1)
mts = Application.VLookup(folio, selecrango, 3, False)
mat = Application.VLookup(folio, selecrango, 8, False)
backrest = Application.VLookup(folio, selecrango, 9, False)
grit = Application.VLookup(folio, selecrango, 10, False)
ubi = Application.VLookup(folio, selecrango, 11, False)
If IsError(mts) Then
msgbox "Folio no existente", , "Error"
End If
Sheets("Entradas").Range("H1") = mts
Sheets("Entradas").Range("H2") = mat & "." & backrest & "." & "P" & grit
Sheets("Entradas").Range("H3") = ubi
End Sub

Prueba esto:


Saludos.
\\//_