Align image objtable.cell VBS signature Outlook - vba

Question

this my code to create a signature mail in outlook at GPO using script VBS.
was added a condition that if exist mobile number, appear of icon whatsapp with hiperlink. This hiperlink is ok, but I don't know how to align this whatsapp icon after number of whatsapp.
Script:
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
With objUser
strName = objUser.FullName
strPhone = objUser.TelephoneNumber
strFax = objUser.facsimileTelephoneNumber
strTitle = objUser.title
strMobile = objUser.Mobile
strMail = objuser.mail
strWeb = objuser.wWWHomePage
strDepartment = objUser.Department
strCompany = objUser.Company
strl = objUser.l
strco = objUser.co
End With
Set objword = CreateObject("Word.Application")
With objword
Set objDoc = .Documents.Add()
Set objSelection = .Selection
Set objEmailOptions = .EmailOptions
Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,7,5
Set objTable = objDoc.Tables(1)
End With
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
With objSelection
'objTable.Columns.Width = 1024
objWord.InchesToPoints(2)
objTable.Cell(1, 1).Merge objTable.Cell(7, 1)
objTable.Cell(1, 2).Merge objTable.Cell(1, 2)
objTable.Cell(1, 2).Merge objTable.Cell(1, 3)
objTable.Cell(1, 2).Merge objTable.Cell(1, 4)
objTable.Cell(1, 2).Merge objTable.Cell(1, 5)
objTable.Cell(2, 2).Merge objTable.Cell(2, 3)
objTable.Cell(2, 2).Merge objTable.Cell(2, 4)
objTable.Cell(2, 2).Merge objTable.Cell(2, 5)
objTable.Cell(3, 2).Merge objTable.Cell(3, 3)
objTable.Cell(3, 2).Merge objTable.Cell(3, 4)
objTable.Cell(3, 2).Merge objTable.Cell(3, 5)
objTable.Cell(4, 2).Merge objTable.Cell(4, 3)
objTable.Cell(4, 2).Merge objTable.Cell(4, 4)
objTable.Cell(4, 2).Merge objTable.Cell(4, 5)
objTable.Cell(5, 2).Merge objTable.Cell(5, 3)
objTable.Cell(5, 2).Merge objTable.Cell(5, 4)
objTable.Cell(5, 2).Merge objTable.Cell(5, 5)
objTable.Cell(6, 2).Merge objTable.Cell(6, 3)
objTable.Cell(6, 2).Merge objTable.Cell(6, 4)
objTable.Cell(6, 2).Merge objTable.Cell(6, 5)
objSelection.InlineShapes.AddPicture("C:\Logo.png")
objTable.Cell(1, 2).Range.ParagraphFormat.SpaceAfter = 0
objTable.Cell(1, 2).Range.Font.Bold = True
objTable.Cell(1, 2).Range.Font.Size = "9"
objTable.Cell(1, 2).Range.Font.Name = "Arial"
objTable.Cell(1, 2).Range.Font.Color = RGB(0, 0, 0)
objTable.Columns(1).Width = objWord.InchesToPoints(1)
objTable.Cell(1, 2).Range.Text = strName
objTable.Cell(2, 2).Range.ParagraphFormat.SpaceAfter = 0
objTable.Cell(2, 2).Range.Font.Bold = True
objTable.Cell(2, 2).Range.Font.Size = "9"
objTable.Cell(2, 2).Range.Font.Name = "Arial"
objTable.Cell(2, 2).Range.Font.Color = RGB(110, 180, 63)
objTable.Columns(1).Width = objWord.InchesToPoints(1)
objTable.Cell(2, 2).Range.Text = strDepartment
objTable.Cell(3, 2).Range.ParagraphFormat.SpaceAfter = 0
objTable.Cell(3, 2).Range.Font.Size = "9"
objTable.Cell(3, 2).Range.Font.Name = "Arial"
objTable.Cell(3, 2).Range.Font.Color = RGB(0, 0, 0)
objTable.Columns(1).Width = objWord.InchesToPoints(1)
objTable.Cell(3, 2).Range.Text = strCompany
objTable.Cell(4, 2).Range.ParagraphFormat.SpaceAfter = 0
objTable.Cell(4, 2).Range.Font.Size = "9"
objTable.Cell(4, 2).Range.Font.Name = "Arial"
objTable.Cell(4, 2).Range.Font.Color = RGB(0, 0, 0)
objTable.Columns(1).Width = objWord.InchesToPoints(3)
Dim PhoneInformation
PhoneInformation = "99 9999 9999 | Ramal " & strPhone
IF strMobile <> "" Then
myobject= objSelection.Hyperlinks.Add(objSelection.InlineShapes.AddPicture("\\Server\NETLOGON\mail\whatsapp.png"), "https://wa.me/" & strMobile,,,"")
PhoneInformation = PhoneInformation + " | WhatsApp " + strMobile + myobject
End IF
objTable.Cell(4, 2).Range.Text = PhoneInformation
objTable.Cell(5, 2).Range.ParagraphFormat.SpaceAfter = 0
objTable.Cell(5, 2).Range.Font.Size = "9"
objTable.Cell(5, 2).Range.Font.Name = "Arial"
objTable.Cell(5, 2).Range.Font.Color = RGB(0, 0, 0)
objTable.Columns(1).Width = objWord.InchesToPoints(1)
objTable.Cell(5, 2).Range.Text = strMail
objTable.Cell(6, 2).Range.ParagraphFormat.SpaceAfter = 0
objTable.Cell(6, 2).Range.Font.Bold = True
objTable.Cell(6, 2).Range.Font.Size = "9"
objTable.Cell(6, 2).Range.Font.Name = "Arial"
objTable.Cell(6, 2).Range.Font.Color = RGB(110, 180, 63)
objTable.Columns(1).Width = objWord.InchesToPoints(1)
objTable.Cell(6, 2).Range.Text = "www"
.TypeText Chr(1)
.EndKey end_table
End With
Set objSelection = objDoc.Range()
objSignatureEntries.Add "Ass", objSelection
objSignatureObject.NewMessageSignature = "Asss"
objSignatureObject.ReplyMessageSignature = "Ass"
objDoc.Saved = True
objword.Quit
Actually it gets like this:
I want it to stay that way:
Any idea to solved it?
thanks a lot.