Paste Cells With Data To Another Sheet
 

I am trying to automate a sheet that I will update on a daily basis.
My source (raw data) sheet is a rolling list of bank transactions. I
will paste new data at the bottom of this sheet. Consequently, the
"LastRow" is changing every time I update it.

I want to copy all of the data and paste it to another "Master"
sheet. I cannot figure out the code to select and copy the data from
cell A2 to K(lastrow) on "Raw Data Sheet" and paste it to cell A2 on
"Master Sheet".

I am sure this is a pretty easy fix. Can someone help me out?
Thanks.

Kevin

Paste Cells With Data To Another Sheet
 

Option Explicit
Sub testme01()

Dim LastRow as long
dim DestCell as Range
dim RngToCopy as range

with worksheets("Raw Data Sheet")
'column K always has something in it?
'if not, use a different column
lastrow = .cells(.rows.count,"K").end(xlup).row
set rngtocopy = .range("a2:K" & lastrow)
end with

with worksheets("master")
set DestCell = .range("a2")
end with

rngtocopy.copy _
destination:=destcell

end sub


DoooWhat wrote:

I am trying to automate a sheet that I will update on a daily basis.
My source (raw data) sheet is a rolling list of bank transactions. I
will paste new data at the bottom of this sheet. Consequently, the
"LastRow" is changing every time I update it.

I want to copy all of the data and paste it to another "Master"
sheet. I cannot figure out the code to select and copy the data from
cell A2 to K(lastrow) on "Raw Data Sheet" and paste it to cell A2 on
"Master Sheet".

I am sure this is a pretty easy fix. Can someone help me out?
Thanks.

Kevin

--

Dave Peterson

Paste Cells With Data To Another Sheet
 

On Jan 31, 10:26 am, Dave Peterson wrote:
Option Explicit
Sub testme01()

Dim LastRow as long
dim DestCell as Range
dim RngToCopy as range

with worksheets("Raw Data Sheet")
'column K always has something in it?
'if not, use a different column
lastrow = .cells(.rows.count,"K").end(xlup).row
set rngtocopy = .range("a2:K" & lastrow)
end with

with worksheets("master")
set DestCell = .range("a2")
end with

rngtocopy.copy _
destination:=destcell

end sub





DoooWhat wrote:

I am trying to automate a sheet that I will update on a daily basis.
My source (raw data) sheet is a rolling list of bank transactions. I
will paste new data at the bottom of this sheet. Consequently, the
"LastRow" is changing every time I update it.

I want to copy all of the data and paste it to another "Master"
sheet. I cannot figure out the code to select and copy the data from
cell A2 to K(lastrow) on "Raw Data Sheet" and paste it to cell A2 on
"Master Sheet".

I am sure this is a pretty easy fix. Can someone help me out?
Thanks.

Kevin

--

Dave Peterson- Hide quoted text -

- Show quoted text -

Dave:

You rock! Thanks a bunch.

Kevin