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

I thought I had responded to this before, but I must have clicked the wrong
button. Anyhow, here is some code that might help you to find the place you
want to paste your data to. It locates the last cell in the used range, then
displays that in a message box for the last column and last row in the range.
It then uses that data to display the next blank cell in the next column and
another message box displays the next blank cell in the next row.

Sub lstCel()
lr = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCel l).Row
lc = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCel l).Column
MsgBox "Last Row is " & lr & CrLf & ", Last Col is " & lc
MsgBox "Next empty cell in Columns is Cells(" & lr & ", " & lc + 1 & ")"
MsgBox "Next empty cell in Rows is Cells(" & lr + 1 & ", " & lc & ")"
End Sub


"Miranda" wrote:

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