@hrq. Here is your code

Option Explicit
Sub moveemailToFolder()
Dim strSenderDomain As String
Dim strSenderEmailAddress As String
Dim objDestFolder As Folder
Dim Selection As Selection
Dim obj As Object
Dim NS As NameSpace
Dim inboxFolder As Outlook.MAPIFolder
Dim iCount As Integer
Dim moveEmail As Boolean
Set NS = GetNamespace("MAPI")
Set inboxFolder = NS.GetDefaultFolder(olFolderInbox)
iCount = 0 'count no. of emails moved
For Each obj In inboxFolder.Items
  On Error Resume Next
  If obj.SenderEmailType = "EX" Then
' exchange
    strSenderEmailAddress = obj.GetExchangeUser.PrimarySmtpAddress
  Else        
' smtp
    strSenderEmailAddress = obj.SenderEmailAddress
  End If
strSenderDomain = Mid$(strSenderEmailAddress, InStrRev(strSenderEmailAddress, "@") + 1, _
InStrRev(strSenderEmailAddress, ".") - _
InStrRev(strSenderEmailAddress, "@") - 1)
Set objDestFolder = NS.GetDefaultFolder(olFolderInbox).Folders("shipping") 
'you need to create a folder first
If strSenderDomain Like "*epshipping*" Then 'or If not strSenderDomain Like "*shipping*"
  obj.Move objDestFolder
  moveEmail = True
  Debug.Print obj.SenderEmailType & " " & strSenderEmailAddress & " " & strSenderDomain
End If
If moveEmail Then
  iCount = iCount + 1
  moveEmail = False
End If
Next obj
Set NS = Nothing
Set objDestFolder = Nothing
Set inboxFolder = Nothing
MsgBox ("Total no. of emails moved over: " & iCount)
End Sub