Copy Range of data using VBA

[rlg50]

I have two worksheets. I want to copy all the data under a header (Located on row 6) to another worksheet.

I.E.
Copy data under header named DATA from SHEET2 to SHEET1 under the header named DATA2.

Here's what I have, of course not completed.

Dim rngInp As Range

Set rngInp = ActiveWorkbook.Worksheets(SHEET2).Cells(6, Range(DATA).column)
Set rngInp = Range(rngInp, rngInp.End(xlDown))