I would like the VBA below to copy also to sheet 'Archive' exactly as it does to sheet 'Asset Events'
Can you please adjust the VBA to do this.

Sub CopyDataToAssetEvents()
Application.EnableEvents = False
    Dim wsBooking As Worksheet
    Dim wsAssetEvents As Worksheet
    Dim wsBookingArchive As Worksheet
    Dim nextRow As Long

    'Set references to the 'Booking' and 'Asset Events' sheets
    Set wsBooking = ThisWorkbook.Worksheets("Booking")
    Set wsAssetEvents = ThisWorkbook.Worksheets("Asset Events")
    Set wsBookingArchive = ThisWorkbook.Worksheets("Archive")

    'Find the next available row in 'Asset Events' sheet column A
    nextRow = wsAssetEvents.Cells(wsAssetEvents.Rows.Count, "A").End(xlUp).Row + 1

    'Copy data from 'Booking' sheet to 'Asset Events' sheet
    With wsBooking
        'Copy A2 to column A in 'Asset Events' sheet on the next available row
        wsAssetEvents.Cells(nextRow, "A").Value = .Range("A2").Value
        'Copy A4 to column B in 'Asset Events' sheet on the same row
        wsAssetEvents.Cells(nextRow, "B").Value = .Range("A4").Value
        'Copy A6 to column C in 'Asset Events' sheet on the same row
        wsAssetEvents.Cells(nextRow, "C").Value = .Range("A6").Value
        'Copy A8 to column D in 'Asset Events' sheet on the same row
        wsAssetEvents.Cells(nextRow, "D").Value = .Range("A8").Value
        'Copy A10 to column E in 'Asset Events' sheet on the same row
        wsAssetEvents.Cells(nextRow, "E").Value = .Range("A10").Value
        'Copy A12 to column F in 'Asset Events' sheet on the same row
        wsAssetEvents.Cells(nextRow, "F").Value = .Range("A12").Value
        'Copy A14 to column G in 'Asset Events' sheet on the same row
        wsAssetEvents.Cells(nextRow, "G").Value = .Range("A14").Value
        'Copy A27 to column H in 'Asset Events' sheet on the same row
        wsAssetEvents.Cells(nextRow, "H").Value = .Range("A27").Value

    End With

    'Find the next available row in 'Asset Events' sheet column A
    nextRow = wsBookingArchive.Cells(wsBookingArchive.Rows.Count, "A").End(xlUp).Row + 1
        'Copy A2 to column A in 'Archive' sheet on the next available row
        wsBookingArchive.Cells(nextRow, "A").Value = .Range("A2").Value
        'Copy A4 to column B in 'Archive' sheet on the same row
        wsBookingArchive.Cells(nextRow, "B").Value = .Range("A4").Value
        'Copy A6 to column C in 'Archive' sheet on the same row
        wsBookingArchive.Cells(nextRow, "C").Value = .Range("A6").Value
        'Copy A8 to column D in 'Archive' sheet on the same row
        wsBookingArchive.Cells(nextRow, "D").Value = .Range("A8").Value
        'Copy A10 to column E in 'Archive' sheet on the same row
        wsBookingArchive.Cells(nextRow, "E").Value = .Range("A10").Value
        'Copy A12 to column F in 'Archive' sheet on the same row
        wsBookingArchive.Cells(nextRow, "F").Value = .Range("A12").Value
        'Copy A14 to column G in 'Archive' sheet on the same row
        wsBookingArchive.Cells(nextRow, "G").Value = .Range("A14").Value
        'Copy A27 to column H in 'Archive' sheet on the same row
        wsBookingArchive.Cells(nextRow, "H").Value = .Range("A27").Value

    End With

    MsgBox "Data has been successfully copied to 'Asset Events'."
    
    wsBooking.Range("A2").ClearContents
    wsBooking.Range("A4").ClearContents
    wsBooking.Range("A6").ClearContents
    wsBooking.Range("A8").ClearContents
    wsBooking.Range("A10").ClearContents
    wsBooking.Range("A12").ClearContents
    wsBooking.Range("A14:A25").ClearContents
    wsBooking.Range("A27").ClearContents
    wsBooking.Range("D2:J" & wsBooking.Cells(wsBooking.Rows.Count, "D").End(xlUp).Row).Interior.ColorIndex = xlNone
Application.EnableEvents = True
End Sub