copy and paste a row but not the entire row just between A:J

[Gwhaou]

Hello,

I'm trying to copy and paste row value, by knowing if there is data or not, actually i'm using this code :

Sheets("Data_Sheet").Range("A" & i).EntireRow.Copy Destination:=Sheets("Data_transfert").Range("A" & Rows.Count).End(xlUp).Offset(1)

The i variable here is for the condition "For" and "Next" line.

Actually it works but it copies the actual entire row, but I just want that to copy row between column A to J.

I tried that but it's not working

Sheets("Data_Sheet").Range("A & i:J & i").EntireRow.Copy Destination:=Sheets("Data_transfert").Range("A" & Rows.Count).End(xlUp).Offset(1)

I will appreciate your help

 

[Fluff]

How about

Sheets("Data_Sheet").Range("A" & i).Resize(,10).Copy Destination:=Sheets("Data_transfert").Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[Gwhaou]

Thank you it work's

 

[Fluff]

Glad to help & thanks for the feedback.