copying same data to several Workbooks
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
|