Copying data to tabs with similar names

Hello everyone, I am having some problems with my program at the moment. Right now it is designed to copy data from a master list and paste it to a sheet with the same name. However, that has caused some problems because I have parts with similar names that both need to be on the same sheet. For example, parts 1111A and 1111BA need to both be on sheet 1111. At the moment if the code runs into this problem it just shoots out an error code and stops. Is there any "match" or "similar" function in VBA to accomplish this? Any help would be greatly appreciated.

[CODE][/Sub Update_Database()
'
' Update_Database Macro
'
' Keyboard Shortcut: Ctrl+j
'

Dim strSourceSheet As String
Dim strDestinationSheet As String
Dim lastRow As Long

strSourceSheet = "Master Sheet"

Sheets(strSourceSheet).Visible = True
Sheets(strSourceSheet).Select

Range("A2").Select
Do While ActiveCell.Value <> ""
strDestinationSheet = (ActiveCell.Value)
ActiveCell.Resize(1, ActiveCell.CurrentRegion.Columns.Count).Select
Selection.Copy
Sheets(strDestinationSheet).Visible = True
Sheets(strDestinationSheet).Select
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Cells(lastRow + 1, 1).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets(strSourceSheet).Select
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(1, 0).Select
Loop
End SubCODE]

This is my current code and I am guessing that the addition would need to be in the "stDestinationSheet = (ActiveCell.Value)" line of code but I am not sure since I am very new to VBA.