Copy Values from one sheet to another sheet

[fareedexcel]

Hi,

I tried with a VBA code copying data as values from one sheet to another sheet. The destination sheet has 7 columns. Each time when I click the button, the data in the source sheet to be copied to the destination sheet.

The code which I'm using now is not giving me proper result. Kindly help

rivate Sub CommandButton1_Click()
erw = Sheets("Tracker").Cells(1, 1).CurrentRegion.Rows.Count + 1
Sheets("Tracker").Cells(erw, 1) = Sheets("Entries").Range("C2:C300")
Sheets("Tracker").Cells(erw, 2) = Sheets("Entries").Range("D2:D300")
Sheets("Tracker").Cells(erw, 3) = Sheets("Entries").Range("F2:F300")
Sheets("Tracker").Cells(erw, 4) = Sheets("Entries").Range("G2:G300")
Sheets("Tracker").Cells(erw, 5) = Sheets("Entries").Range("H2:H300")
Sheets("Tracker").Cells(erw, 6) = Sheets("Entries").Range("I2:I300")
Sheets("Tracker").Cells(erw, 7) = Sheets("Entries").Range("J2:J300")

End Sub

Data from Entries sheet to be copied to Tracker Sheet. Whenever I click the button, the data in the Entries sheet should find the blank rows in Tracker sheet and paste the values in 7 columns.

 

[salim hasan]

Upload the file

 

[fareedexcel]

Hi Salim,

Please find attached sample sheet for your reference