The path in your code does not match the path in your illustration, so it isn't going to work. Change the main macro to the following which does match the path.
Sub MoveMail(Item As Outlook.MailItem)
Dim olFolder As Folder
Set olFolder = Session.GetDefaultFolder(olFolderInbox).folders("1-SVR").folders("HS-HK")
With Item
If InStr(1, .Subject, "SVR") > 0 And InStr(1, .Subject, "HS") > 0 Then
Item.Move olFolder
End If
End With
Set olFolder = Nothing
End Sub
If you want to process the inbox, you need a macro that will loop through the contents of that folder and check for unread messages e.g.
Sub ProcessFolder()
'Graham Mayor - http://www.gmayor.com - Last updated - 24 Sep 2018
Dim olNS As Outlook.NameSpace
Dim olMailFolder As Outlook.MAPIFolder
Dim olItems As Outlook.Items
Dim olMailItem As Outlook.MailItem
Dim i As Long
On Error GoTo Err_Handler
Set olNS = GetNamespace("MAPI")
Set olMailFolder = olNS.GetDefaultFolder(olFolderInbox)
Set olItems = olMailFolder.Items
For Each olMailItem In olItems
If olMailItem.UnRead = True Then
MoveMail olMailItem
DoEvents
End If
Next olMailItem
lbl_Exit:
Set olNS = Nothing
Set olMailFolder = Nothing
Set olItems = Nothing
Set olMailItem = Nothing
Exit Sub
Err_Handler:
Err.Clear: GoTo lbl_Exit
End Sub