Copy rows to other sheet based on multiple conditions in multiple columns

Sub SelectnCopy()
Dim SearchMe, StrtSht, MyCln, ShtNme, ShtNmeShrt, m As String
Dim SrchCln, i, x, LoopMe, MyLoop, SplitMe, MyNme As Integer
Dim SrchRnge As Range
Dim MySplit As Variant


MyStart:


ShtNme = InputBox("Enter search term")
If ShtNme = "" Then Exit Sub
MySplit = Split(ShtNme, " ") 'splits sheetname into each search term (this will fail to work if there are spaces in the terms being searched for)
MyCln = InputBox("Enter column")
If MyCln = "" Then Exit Sub
Application.ScreenUpdating = False


SrchCln = Range(MyCln & 1).Column ' convert column letter to column number
StrtSht = ActiveSheet.Name 'to allow return to this sheet after adding new sheet (add new sheet defaults with activation of the new sheet)
Set SrchRnge = Range(Cells(2, SrchCln).Address, Range(Cells(Rows.Count, SrchCln).Address).End(xlUp).Address) 'defines the range to compare the string entered in the inputbox
ShtNmeShrt = ""
For MyNme = 0 To UBound(MySplit)
    m = Left(MySplit(MyNme), 3)
    ShtNmeShrt = ShtNmeShrt & m & "_"
    
Next MyNme
ShtNmeShrt = Left(ShtNmeShrt, Len(ShtNmeShrt) - 1)
For i = 1 To Sheets.Count 'determine if sheetname already exists, use of Lcase allows case insensitive string comparison (if you want to force case sensitive remove all Lcase)
    If LCase(Sheets(i).Name) = LCase(ShtNmeShrt) Then GoTo ShtExists ' skips add new sheet if sheet already exists
    
Next i
    
    Sheets.Add.Name = ShtNmeShrt 'adds a sheet if not already existing
    
ShtExists:
Sheets(StrtSht).Activate
Range("A1").EntireRow.Copy (Sheets(ShtNmeShrt).Range("A1"))
For SplitMe = 0 To UBound(MySplit) 'nested loop to search terms and copy to new sheet
    For x = 1 To SrchRnge.Rows.Count
        If LCase(Range(Cells(x, SrchCln).Address)) = LCase(MySplit(SplitMe)) Then
            Range(Cells(x, SrchCln).Address).EntireRow.Copy (Sheets(ShtNmeShrt).Range("A" & Rows.Count).End(xlUp).Offset(1, 0))
        End If
    
    Next x
    
Next SplitMe
Application.DisplayAlerts = False
If Sheets(ShtNmeShrt).UsedRange.Rows.Count = 1 Then
    Sheets(ShtNmeShrt).Delete
    MsgBox "No matches found"
    GoTo MyEnd
End If


MsgBox "Sheet " & "[" & ShtNmeShrt & "]" & " has been created"


MyEnd:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
If MsgBox("Would you like to search another column?", vbYesNo) = vbYes Then GoTo MyStart


End Sub