Excel læg ark sammen ud fra tekststreng i arknavn

Jeg har følgende makro, som kopiere data fra forskellige ark til et destinationsark:

Sub samle()
Set dest = Sheets("Ark1")
dest.Range("A1:H10000") = "" ' sletter gl værdier
For Each sh In ThisWorkbook.Sheets
If sh.Name <> dest.Name Then
dest.Cells(dest.Cells(65500, "A").End(xlUp).Offset(2, 0).Row, "A") = sh.Name
rk = sh.Cells(65500, "A").End(xlUp).Row + 1
rk2 = dest.Cells(65500, "A").End(xlUp).Row + 1
x = sh.Range("A1:Y" & rk)
dest.Range("A" & rk2 & ":Y" & rk2 + rk - 1) = x
'y = sh.Range("H1:H" & rk)
'  dest.Range("H" & rk2 & ":H" & rk2 + rk - 1) = y
End If
Next
End Sub

Jeg vil godt have den lavet, således at den kun anvender ark, hvor de tre første bogstaver er "bud".

Kan nogle hjælpe med denne krølle på makroen ?

mvh
Per