Private Sub Worksheet_Change(ByVal Target As Range)

     If Sheets("Sheet1").Range("A5").Value = 1 Then

        For i = 1 To 10

            If Sheets("Sheet2").Range("A" & i) = "" Then
            Sheets("Sheet1").Range("A2:J2").Copy
            Sheets("Sheet2").Range("A" & i).PasteSpecial xlPasteValues
            Exit Sub

            End If

            Next

      End If

End Sub