[belajar-excel] Run time Error 13 VBA Index dan Match

[him mah]

saya coba buat rumus seperti ini

Dim hasil As String
Dim ms As Long
dim xy as Long


For xy = 2 To 13
ms = Sheets("MASA").Range("a" & xy)
hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
If IsError(hasil) Then hasil = "" Else hasil = hasil

Sheets("MASA").Range("C" & xy) = hasil
Next xy

ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time error 13

kemudian kalau ditambahkan resume next untuk data yang tidak ada
hasilnya adalah data sebelumnya

kalau yang seperti ini pemesahannya gimana ya