[HELP]Adding new rows with formula

[vinchiecent]

Hi, I'm new in using macro programming, I just want to know if it is possible to add the cell which is in formula to another sheets, I successfully pasting the Total Amount to other sheets, but my problem is that how if I add a new row to add another amount without copying from the stuck cell let's say i copied row E24 which the total amount is 2000 and when I inserted a new row, 2000 goes down to E25 and I added an amount of 3000 to E24 so the total must be 5000 but in other sheets it still copied to E24 which is 3000.

This is my macro programmed.

Sub addLogs()
Range("E23").Select
Selection.Copy
Sheets("Logs").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Logs").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Thanks in advance

 

[farmerscott]

Welcome to the forum....

I am not quite sure what you want... can you provide a layout of the data you have and what it should look like.

thx

FarmerScott

 

[vinchiecent]

Here's my layout of the data that you request.

http://puu.sh/6AMrg.jpg

My problem is when I inserted a new row and entered another amount to get the total amount, it just copied the column where i just inserted a new row

http://puu.sh/6ALz5.png

 

[farmerscott]

So is it only the Total that you are having trouble with?

Will the $$$ amount be the last cell in column D (ie nothing underneath it)?

When you pull the info from your sheet do you want to start a new line for each invoice???

 

[vinchiecent]

Yes that is the only problem, in the first input the Total amount is copied from the other sheet but if I'm going to insert a new line from Sheet A, and run a macro, Sheet B copy the cell where the line is inserted just like from the image.

Btw, I am making logs for that activity. I wish it would be solved.

 

[farmerscott]

This will copy the last row in sheet 1 Col C to the last row of sheet 2 Col D. Just change the sheet names and the columns to suit.

Sub copy_and_paste()
Dim lastrow As Integer

lr = Worksheets("Sheet1").Cells(Rows.Count, "C").End(xlUp).Row
lr2 = Worksheets("Sheet2").Cells(Rows.Count, "D").End(xlUp).Row

Worksheets("Sheet1").Range("C" & lr).Copy Destination:=Sheets("Sheet2").Range("D" & lr2)
End Sub