Macro Formula Relative Referencing

That worked. Here is a working macro:

Sub TransformData()
    Dim LastRow As Long
    Application.ScreenUpdating = False
    ' Delete Customer Code and Customer Name
    Range("A1:B1").EntireColumn.Delete
    ' Move Date to column A
    Range("I1").EntireColumn.Cut
    Range("A1").EntireColumn.Insert
    ' Move Transaction Code to column B
    Range("O1").EntireColumn.Cut
    Range("B1").EntireColumn.Insert
    ' Move Docket number to column C
    Range("I1").EntireColumn.Cut
    Range("C1").EntireColumn.Insert
    ' Delete Customer Address1 to Driver Code
    Range("F1:J1").EntireColumn.Delete
    ' Delete Paid Value to Location Description
    Range("G1:K1").EntireColumn.Delete
    ' Create new headers
    Range("G1").Value = "Percy Mills"
    Range("H1").Value = "Other"
    ' Create Formulas in columns G and H
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("G2:G" & LastRow).Formula = "=IF(ISNUMBER(SEARCH($G$1,E2)),F2,"""")"
    Range("H2:H" & LastRow).Formula = "=IF(ISNUMBER(SEARCH($G$1,E2)),"""",F2)"
    ' Totals
    Range("A" & LastRow + 1).Value = "Totals"
    Range("F" & LastRow + 1).Resize(1, 3).Formula = "=SUM(F2:F" & LastRow & ")"
    ' Number format for columns F to H
    Range("F2:H" & LastRow + 1).NumberFormat = "#,##0.00"
    ' Column Widths
    Range("A1").CurrentRegion.EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub