copy data from one sheet to another to the next open row down

[steve400243]

Hello, I use this code in VBA to transfer data from one sheet to another when i click an option button. It however deletes the sheet each time I transfer new data. I need it to keep the old data, and trnasfer the new data to the next open row down? Thanks for all help.

Sub cpyToComplete()
     
Application.ScreenUpdating = False
Dim CopySheet As Worksheet
Dim PasteSheet As Worksheet


Set CopySheet = Worksheets("FXF CALL IN LOG")
Set PasteSheet = Worksheets("Complete")


PasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).Value = Sheets("FXF CALL IN LOG").Range("I1").Value
CopySheet.Range("A2:I500").Copy
PasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues


Sheets("Complete").Select
Sheets("Complete").Range("J1").Select
Sheets("FXF CALL IN LOG").Select
Sheets("FXF CALL IN LOG").Range("J4").Select


Application.CutCopyMode = False
Application.ScreenUpdating = True


End Sub

 

[Fluff]

That code doesn't delete any sheets.

 

[steve400243]

That code doesn't delete any sheets.

Fluff, Thanks for looking at this. Let me try to explain a bit better. The data entered on the 'FXF CALL IN LOG' sheet will change throughout the day. When new data is sent to the COMPLETE sheet, I want it to be saved for history on the next open row down. Currently if I send new data, it clears the COMPLETE sheet and just shows the new data. Make more sense?

 

[Fluff]

Make more sense?

Nope
At no point is that code clearing any data.
It is pasting the new data into the first blank row in col A.

 

[steve400243]

Nope
At no point is that code clearing any data.
It is pasting the new data into the first blank row in col A.

Sorry Fluff for my bad explanation. A user enters data into the FXF CALL IN LOG sheet, This is transferred to the complete sheet. The FXF sheet is cleared and ready for new data. New data is entered into the FXF sheet, when copied to the Complete sheet need it to keep the old data that has been transferred earlier? The complete sheet needs to be a running history of all data copied over?

 

[Fluff]

And that's exactly what your code does.
does col A have values in every row?

 

[steve400243]

Fluff, I'm embarrassed, I had been playing around with my copy of this and accidentally changed some ranges, it was overwriting the data in the complete sheet. I changed everything back and it is working now. I really appreciate the time you spent looking at this.

 

[steve400243]

I was starting to enter data in col B, not A........ Oops.

 

[Fluff]

Glad you got it sorted & thanks for the feedback