Paste Cells With Data To Another Sheet

  • Thread starter Thread starter DoooWhat
  • Start date Start date
D

DoooWhat

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
 
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
 
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









--

Dave Peterson- Hide quoted text -

- Show quoted text -
Click to expand...

Dave:

You rock! Thanks a bunch.

Kevin
 
Back
Top