こうしたらうごくの？
lRow = 転記元.Cells(転記元.Rows.Count, 1).End(xlUp).Row
転記元.Range(転記元.Cells(4, 2), 転記元.Cells(lRow, 8)).Copy Destination:=転記先.Cells(2, 1)