Macro en Excel, copiar rango a otra hoja con condición

Hola todoexpertos, tengo una Macro en Excel que me permite copiar un rango de celdas de una hoja (Datos Base) a otra (Base Mant), pero quisiera que en esa macro tenga una condición. Por ej.. Que copie los datos de las celdas que empiecen con "M". ¿Podrán ayudarme?. Les dejo mi Macro.

Private Sub copiado()
Sheets("Datos Base").Select
filafin = ActiveSheet.Range("B3000").End(xlUp).Row
ActiveSheet.Range("B8:B" & filafin).Copy
Sheets("Base Mant").Select
ActiveSheet.Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Datos Base").Select
Application.CutCopyMode = False
End Sub