Dim Lastrow as Integer
Dim Copy_range as range
Lastrow = Sheets("Your Sheet Name").Cells(Rows.Count, 2).End(xlUp).row
set Copy_range = Sheets("your worksheet").Range(Sheets("your worksheet").Cells(2, 2), Sheets("your sheet").Cells(Lastrow, 13))
Copy_range.copy
..
..
..
..