I am trying to do a simple Copy/Paste

cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total",
LookAt:=xlWhole).Row

I want to copy "D" &clastrow+1: "D"&clastrow+17 to E+clastrow+1:
clastcol-5&clastrow+1
(In other words... D172:D192 to e172:ca192)

My sad attempt at code below:



Range("D" & cLastRow + 1 & ":" & "D" & cLastRow + 17).Copy
Range(Columns(cLastRow + 1, cLastcol - 5))

cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total", LookAt:=xlWhole).Row

with worksheets("initial by Laser")
.range(.cells(cLastrow+1,"D"),.cells(clastrow+17," D")).copy _
destination:=.cells(clastrow+1,"E")
end with

Excel will resize the destination range to match the size of the copied range.

All this is happening on the "initial by laser" worksheet, right?


willwonka wrote:

I am trying to do a simple Copy/Paste

cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total",
LookAt:=xlWhole).Row

I want to copy "D" &clastrow+1: "D"&clastrow+17 to E+clastrow+1:
clastcol-5&clastrow+1
(In other words... D172:D192 to e172:ca192)

My sad attempt at code below:

Range("D" & cLastRow + 1 & ":" & "D" & cLastRow + 17).Copy
Range(Columns(cLastRow + 1, cLastcol - 5))

--

Dave Peterson

I'm not sure I see how the copies it out to Column CA?

Dave Peterson wrote:
cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total", LookAt:=xlWhole).Row

with worksheets("initial by Laser")
.range(.cells(cLastrow+1,"D"),.cells(clastrow+17," D")).copy _
destination:=.cells(clastrow+1,"E")
end with

Excel will resize the destination range to match the size of the copied range.

All this is happening on the "initial by laser" worksheet, right?


willwonka wrote:

I am trying to do a simple Copy/Paste

cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total",
LookAt:=xlWhole).Row

I want to copy "D" &clastrow+1: "D"&clastrow+17 to E+clastrow+1:
clastcol-5&clastrow+1
(In other words... D172:D192 to e172:ca192)

My sad attempt at code below:

Range("D" & cLastRow + 1 & ":" & "D" & cLastRow + 17).Copy
Range(Columns(cLastRow + 1, cLastcol - 5))

--

Dave Peterson

I misunderstood.

How about:

With Worksheets("initial by Laser")
.Range(.Cells(clastrow + 1, "D"), .Cells(clastrow + 17, "D")).Copy _
Destination:=.Range(.Cells(clastrow + 1, "E"), .Cells(clastrow + 17, "Ca"))
End With



willwonka wrote:

I'm not sure I see how the copies it out to Column CA?

Dave Peterson wrote:
cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total", LookAt:=xlWhole).Row

with worksheets("initial by Laser")
.range(.cells(cLastrow+1,"D"),.cells(clastrow+17," D")).copy _
destination:=.cells(clastrow+1,"E")
end with

Excel will resize the destination range to match the size of the copied range.

All this is happening on the "initial by laser" worksheet, right?


willwonka wrote:

I am trying to do a simple Copy/Paste

cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total",
LookAt:=xlWhole).Row

I want to copy "D" &clastrow+1: "D"&clastrow+17 to E+clastrow+1:
clastcol-5&clastrow+1
(In other words... D172:D192 to e172:ca192)

My sad attempt at code below:

Range("D" & cLastRow + 1 & ":" & "D" & cLastRow + 17).Copy
Range(Columns(cLastRow + 1, cLastcol - 5))

--

Dave Peterson

--

Dave Peterson

Worked great .. thanks.
I did replcace "Ca" with cLastCol for it to be more dynamic..
Thanks again.


Dave Peterson wrote:
I misunderstood.

How about:

With Worksheets("initial by Laser")
.Range(.Cells(clastrow + 1, "D"), .Cells(clastrow + 17, "D")).Copy _
Destination:=.Range(.Cells(clastrow + 1, "E"), .Cells(clastrow + 17, "Ca"))
End With



willwonka wrote:

I'm not sure I see how the copies it out to Column CA?

Dave Peterson wrote:
cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total", LookAt:=xlWhole).Row

with worksheets("initial by Laser")
.range(.cells(cLastrow+1,"D"),.cells(clastrow+17," D")).copy _
destination:=.cells(clastrow+1,"E")
end with

Excel will resize the destination range to match the size of the copied range.

All this is happening on the "initial by laser" worksheet, right?


willwonka wrote:

I am trying to do a simple Copy/Paste

cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total",
LookAt:=xlWhole).Row

I want to copy "D" &clastrow+1: "D"&clastrow+17 to E+clastrow+1:
clastcol-5&clastrow+1
(In other words... D172:D192 to e172:ca192)

My sad attempt at code below:

Range("D" & cLastRow + 1 & ":" & "D" & cLastRow + 17).Copy
Range(Columns(cLastRow + 1, cLastcol - 5))

--

Dave Peterson

--

Dave Peterson