VBA Hyperlink

I have an excel sheet that turns tracking #'s into links directed to the carriers page. But it requires use of 3 columns. Column I is the carrier field, Column G is the entered tracking #, and Column H is the link. How could I do this with VBA code and eliminate Column H and have the text entered in Column G function as both manually entered data and the link to track?

The below formula is what is entered into Column H, which is the column I'd like to remove.

=IF(I2818="","",IF(ISNUMBER(SEARCH("*FedEx*",I2818)),HYPERLINK("https://www.fedex.com/wtrk/track/?action=track&tracknumbers="&G2818&"&locale=en_US&cntry_code=us",G2818),IF(ISNUMBER(SEARCH("*UPS*",I2818)),HYPERLINK("https://www.ups.com/track?loc=en_US&tracknum="&G2818,G2818),IF(ISNUMBER(SEARCH("*USPS*",I2818)),HYPERLINK("https://tools.usps.com/go/TrackConfirmAction?tRef=fullpage&tLc=2&text28777=&tLabels="&G2818&"%2C&tABt=false",G2818),IF(ISNUMBER(SEARCH("*DHL*",I2818)),HYPERLINK("https://www.dhl.com/us-en/home/tracking/tracking-express.html?submit=1&tracking-id="&G2818,G2818),"Link Unavailable")))))