I have a form that i fill out and puts calculated data into a range of cells
K1:K12
I Need to select that range and paste it at the end of another workbook.

How do i find the last column in the
The code i have Looks at the Do loop and just goes straight to End


Sub PasteintoWeek52()

Workbooks("On Time Week 52 WIP.xls").Sheets("Weekly Performance").Activate
Dim rw As Long
rw = 10

Do Until ActiveSheet.Cells(rw, 1) = ""

Workbooks("Enter Data Sheet").Sheets("Sheet1").Activate
Range(Cells(1, 11), Cells(12, 11)).Select
Application.CutCopyMode = False
Selection.Copy

Workbooks("On Time Week 52 WIP.xls").Sheets("Weekly Performance").Activate
Range(Cells(1, rw)).Select
Selection.Paste

rw = rw + 1
Loop

End Sub