Copy row when data entered in cell H

If data entered in sheet 1, column H copy entire row column A, row 208. The result should be an Itemization of the rows with data entered.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 6 And Target.Cells.Count = 1 Then
    Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    Target.EntireRow.Delete shift:=xlUp
  End If
End Sub

Can you help me edit the above code, please?
Do not delete row.
Copy within the same sheet –
Copy to row 208 and below…..

see attached