Pasting Entire Row Into A Different Workbook

I'm running a code to copy rows from one workbook and paste into another...Code runs but doesn't paste anything into the workbook.

Sub Macro2()

Workbooks.Open Filename:="J:BestExIncMikey_copy.xls", UpdateLinks:=3, ReadOnly:=False
Dim c As Range
Dim rng As Range
Dim ws As Worksheet
Dim Row As Integer
Dim LstRow As Integer
Dim i As Variant

For Each ws In Worksheets
Select Case ws.Name
Case "Total Locked Pipeline"
Range("I2").Select
Selection.End(xlDown).Select...........