Need to multiply my discount amount by -1

I am using MS Excel 2021 Mac.
I am using some VBA code that works just fine.
I copied the logic that inserts the "Tips" amount for a sales transaction to also insert a new row if there is a discount amount. See block "Insert discount row".
The discount amount is in column K as a negative number.

here is my code

Sub QBLoad1_UpdateQBLoad()
Dim Rw, Order As String, i As Long

With Sheets("QBLoad")
    For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
    
       ' Check for gift set
        If .Range("D" & i) = "Gift Set" Then
            .Range("D" & i).Interior.Color = vbRed
            .Range("H" & i).Font.Color = vbRed
            .Range("H" & i).Font.Bold = True
        End If
        
        ' Insert discount row
        If .Range("K" & i) <> 0 Then
            Order = .Range("AD" & i)
            With .Cells(1).CurrentRegion.Columns(30): Rw = Evaluate("=MAX(IF(" & .Address & "=" & Order & ",ROW(" & .Address & ")-MIN(ROW(" & .Address & ")) + 1))"): End With
            .Rows(i).Copy: .Rows(Rw + 1).Insert Shift:=xlDown
            
            With .Range("A" & Rw + 1 & ":AL" & Rw + 1)
            
                ' Set value Tips
                Union(.Columns("D:E"), .Columns("G:H")).Value = "Discount"
                .Columns("G").Font.ColorIndex = 46
                .Columns("G").Font.Bold = True
                .Columns("H").Font.ColorIndex = 46
                .Columns("H").Font.Bold = True
                
                ' Set quantity to blank
                .Columns("F").Value = " "
                
                ' Set discount amount
                 Union(.Columns("J"), .Columns("L"), .Columns("AE")).Value = .Parent.Range(("K" & i) * -1)
                
                ' Set cell color and make bold
                .Columns("AE").Font.Color = vbBlue
                .Columns("AE").Font.Bold = True
                 
                 ' Clear 6 cells from AF
                .Columns("AF").Resize(, 6).ClearContents
            End With
        End If
        
        ' Insert Tips row
        If .Range("AG" & i) <> "" Then
            Order = .Range("AD" & i)
            With .Cells(1).CurrentRegion.Columns(30): Rw = Evaluate("=MAX(IF(" & .Address & "=" & Order & ",ROW(" & .Address & ")-MIN(ROW(" & .Address & ")) + 1))"): End With
            .Rows(i).Copy: .Rows(Rw + 1).Insert Shift:=xlDown
            
            With .Range("A" & Rw + 1 & ":AL" & Rw + 1)
            
                ' Set value Tips
                Union(.Columns("D:E"), .Columns("G:H")).Value = "Tips"
                .Columns("G").Font.ColorIndex = 46
                .Columns("G").Font.Bold = True
                .Columns("H").Font.ColorIndex = 46
                .Columns("H").Font.Bold = True
                
                ' Set quantity to blank
                .Columns("F").Value = " "
                
                ' Set tips amount
                Union(.Columns("J"), .Columns("L"), .Columns("AE")).Value = .Parent.Range("AG" & i)
                
                ' Set cell color and make bold
                .Columns("AE").Font.Color = vbBlue
                .Columns("AE").Font.Bold = True
                 
                 ' Clear 6 cells from AF
                .Columns("AF").Resize(, 6).ClearContents
            End With
        End If
    Next i
    
    ' Save last transaction number to Formula
    i = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("I" & i).Copy Destination:=Sheets("Formulas").Range("I1")
    
    ' Change column width for US date/time
    Columns("AL").ColumnWidth = 16
    
    ' Copy Load data to Save sheet
    ' Clear sheet Load first
    Sheets("Save").Cells.Clear
    
    i = Sheets("QBLoad").Cells(.Rows.Count, "A").End(xlUp).Row
    Sheets("QBLoad").Range("A1" & ":AL" & (i)).Copy
    
    ' Now paste values and formats
    Sheets("Save").Range("A1").PasteSpecial xlPasteValues
    Sheets("Save").Range("A1").PasteSpecial xlPasteFormats
    
    ' Now copy Load sheet to Load Excel
    Dim SquareLoad As Workbook
    Dim SourceSheet As Worksheet

    On Error Resume Next

    ' Set the source worksheet
    Set SourceSheet = ThisWorkbook.Worksheets("QBLoad")

    ' Find the Square-load.xlsx workbook
    Set SquareLoad = Workbooks("Square-load.xlsx")

    ' Did we find the workbook?
    If SquareLoad Is Nothing Then
        ' Open it - assume it's in the same folder
        Set SquareLoad = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "Square-load.xlsx")
    
        ' Did we find it there?
        If SquareLoad Is Nothing Then
            ' No - error and exit
            MsgBox "Square-load.xlsx not found in folder", vbCritical
            Exit Sub
        End If
    End If

    ' Copy the sheet to be the second sheet of the destination workbook
    SourceSheet.Copy After:=SquareLoad.Sheets(1)

    ' Delete the previous "Load" sheet in the destination workbook
    Application.DisplayAlerts = False
    SquareLoad.Worksheets(1).Delete
    Application.DisplayAlerts = True

    ' Change the name of the worksheet
    SquareLoad.Worksheets(1).Name = "SalesReceipt"

    ' Save the destination book
    SquareLoad.Save
        
    ' Sort by Date and time
    ' Columns.Sort key1:=Columns("A"), Order1:=xlAscending, Key2:=Columns("B"), Order2:=xlAscending, Header:=xlYes
End With

End Sub

I get an error on this line where I want to multiply the discount amount by -1.
Union(.Columns("J"), .Columns("L"), .Columns("AE")).Value = .Parent.Range(("K" & i) * -1)

The discount amount in the excel has to be a positive number, as it is converted to a negative amount when I import it into Quickbooks.

What am I doing wrong?