Copy data to another sheet a double click option vba

Hi all,
I am using the following code to double click the cell in column 'Q' in sheet2
This copies data to sheet1 and works perfect.

The copy resize is done upto columns 8 in sheet2
I also want column 'P' cell in sheet2 copied and pasted to column 'I' in sheet1 by modifying the code.

I need help here please

Private Sub Worksheet_change(ByVal Target As Range)

  If Target.Column = 17 And Target.Cells.Count = 1 Then
  
     Target.Offset(, -16).Resize(, 8).Copy
'include here to achieve my objective
     Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlValues
     
     Target.Offset(, -16).Resize(, 8).Interior.ColorIndex = 6
     
  End If
   
End Sub

Please help

Kind regards