Sub CopyData()
With Sheets("Sheet1")
.Range("D" & .Cells(.Rows.Count, "D").End(xlUp).Row + 1) =
Sheets("Sheet3").Range("C3")
.Range("E" & .Cells(.Rows.Count, "E").End(xlUp).Row + 1) =
Sheets("Sheet3").Range("C4")
End With
End Sub

--

Regards,
Nigel




"drinese18" wrote in message
...
Basically I want to copy the values into one cell at a time, every day I
would come in and update the sheet, so I want to copy the data from the
source sheet into cells on the destination sheet. Not overwriting anything
just adding to the data that is already there, for instance, if there is
data
already in D8 that was added from the previous day, today when I get in
and
update the source sheets, I want to copy the data automatically into D9
and
the same process goes on each day, D10, D11 and so on.

"Nigel" wrote:

If I understand you correctly..

You have a value on Sheet3 Range C3 and Range C4 (the source) which you
wish
to add to the values already in Sheet1 Column D or Column E (the target).

How do you wish to specify the target range? The whole of column D and E
or
something else?

Should be straightforward given the conditions. Post your specifc needs

--

Regards,
Nigel




"drinese18" wrote in message
...
Basically the procedure involves me copying a value from Cell C3 from
Sheet3
into a Range of cells on Sheet1, the reason why I don't specify the
cells
on
Sheet1 is because I am not only copying into one cell on Sheet1. Sheet3
is
basically updated everyday, so I basically want to copy the values from
the
cell in Sheet3 into Sheet1 but not overwriting the data that is already
just
basically adding to the data that is already there, the column that I'm
copying the data into is Column D on Sheet1. I basically want to do the
samething for Sheet3 Cell C4, basically copying data from that cell
into
column E on Sheet1, and also doing the samething for Sheet4, copying
Cell
C3
from Sheet4 into column H on Sheet1. There is already data on Sheet1 so
I
would just like to add to what is already there without overwriting
anything.
I recorded a macro, which you can see below:


Sub Macro2()

Sheets("Sheet3").Select
Range("C3").Select
Selection.Copy
Sheets("Sheet1").Select
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet3").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet4").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("H8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub

Basically the macro only works for one cell, but it overwrites the data
that
is already within the cells on sheet1, I just want it to add to that
data
that is already there, so if you can help me with this it would be
greatly
appreciated, thanks