Adjust Send Key Code to update application

[HazatB]

Good Day Everyone,

I am attempting to update a Send Key Code to update an application for a new naming convention. This Code currently works to match the excel data to the app data and then update another field if the amount has changed. What I need to do now is once I have matched the excel to the app data it adds (_Lawson) to the end of the application. The code that I currently have is posted below and if anyone could give me some advise on how to add a code that updates the application based on the excel match.

Sub CompleteSTARandExcelSendKeyCode()
'
' CompleteSTARandExcelSendKeyCode Macro
' Macro recorded 12/22/2010 by UMMS User
'
'
Dim EnterKey As String
Dim ThreeKey As String
Dim YesKey As String
Dim AccountKey As String
Dim rowkey As Integer
'-------------------
'AccountKey = "1620001739"
EnterKey = "~"
ThreeKey = "3"
YesKey = "Y"
rowkey = 1
    
    
    Do
    AppActivate ("Microsoft Excel - SendKey_UMMC.xls"), False
    Application.Sheets("Accounts").Select
    Range("A" & rowkey).Select
    
    
    AccountKey = Range("A" & rowkey)
    
    '================================================
    'STAR Send Key Code
    '================================================
    
    
    '=============================================
    'Select UMMC at the Facility Screen
    '=============================================
    AppActivate ("1 - HBOC_CLN"), False
    Application.SendKeys (ThreeKey), True
    Application.SendKeys (EnterKey), True
    'Enter the account number
    Application.Wait (Now + TimeValue("00:00:03"))
    AppActivate ("1 - HBOC_CLN"), False
    Application.SendKeys (AccountKey), True
    Application.SendKeys (EnterKey), True
    'Say Yes to Do you wnat to send charges for this account
    Application.Wait (Now + TimeValue("00:00:03"))
    AppActivate ("1 - HBOC_CLN"), False
    Application.SendKeys (YesKey), True
    Application.SendKeys (EnterKey), True
    'Say Yes to Add account to HPM index tranferring changes
    Application.Wait (Now + TimeValue("00:00:03"))
    AppActivate ("1 - HBOC_CLN"), False
    Application.SendKeys (YesKey), True
    Application.SendKeys (EnterKey), True

    '===========================================================
    'End of the STAR Code
    '===========================================================
    
    rowkey = rowkey + 1
    
    AppActivate ("Microsoft Excel - SendKey_UMMC.xls"), False
    Application.Sheets("Accounts").Select
    Range("A" & rowkey).Select
    
    
    AccountKey = Range("A" & rowkey)
    Application.Wait (Now + TimeValue("00:00:03"))
    Dim c As Range
    For Each c In Selection
    If c.Value <> "" Then c.Value = c.Value & "_01"
    Next
    Loop Until AccountKey = "END"
    
End Sub