Problem copying between worksheets

[drinese18]

I am basically trying to copy data from one sheet to another within the same
workbook. My problem is that it is dynamic so the columns basically get
updated everyday, the data within the worksheets are not overwritten but
simply appended, so whatever data that is already there has to stay there. I
want to basically copying from 2 cells in worksheet A and 1 cell from
worksheet B onto 3 cells within the main worksheet, if anyone can help me
with this it would be greatly appreciated,

Thank you

 

[JLGWhiz]

You need to clarify your explanation. Maybe provide an example or specify
the cells and sheets in question. It is hard to see your problem from here.

 

[drinese18]

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