How to transfer selected range from sheet1 to sheet2

[arunrana2004]

Option Explicit
Private Sub Workbook_Open()
Dim i, LastRow

LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Range("A2:I500").ClearContents
For i = 2 To LastRow
If Sheets("sheet1").Cells(i, "A").Value = 130 Then
Sheets("sheet1").Cells(i, "A").EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
End Sub


Hi, I've VBA code to transfer the selected row from sheet1 to sheet2. can any one help me to modify the code that transfer the multiple selections.