Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
i = 1
'
Sheets("ASS2").Range("A" & i + 2 & ":J" & i + 2).Insert Shift:=xlDown
Sheets("ASS").Range("A" & i + 2 & ":J" & i + 2).Copy Destination:=Sheets("ASS2").Range("A" & i + 2 & ":J" & i + 2)
'
End Sub