Copy range without header and past it after particular row

[ekslit]

Hello guys,

I'm stuck a little bit and need you help

Right now, i m able to copy range content with header and past it in another worksheet and this is my code

'Workbooks("Projects.xls").Worksheets("Projects").Range("A:G").Copy Workbooks("Suivi.xlsx").Worksheets("LogPMReports").Range("A:G")

What i m trying to achieve now is copy range (A:G) without header and past it after row number 290.

Can you please help me with this ?

 

[JLGWhiz]

With Workbooks("Projects.xls").Worksheets("Projects")
    Intersect(.UsedRange.Offset(1), .Range("A:G")).Copy Workbooks("Suivi.xlsx").Worksheets("LogPMReports").Cells(Rows.Count, 1).End(xlUp)(2)
End With

 

[ekslit]

Thank you very much @JLGWhiz

As i want to past content from row 290 and + then this should be:

Worksheets("LogPMReports").Cells(Rows.Count, 1).End(xlUp)(290)

M i right?

 

[JLGWhiz]

I assumed that row 289 was your last row with data. If Not then

Worksheets("LogPMReports").Range("A290")

 

[ekslit]

Thank you very much for your valuable help

 

[JLGWhiz]

Thank you very much for your valuable help

You're welcome,
regards, JLG