If I understand you correctly;

Cells(1, ActiveCell.Column)

will give you the value of cell 1 or Row1 of the active cell/column

reportWS.Range("D" & reportCurrentRow) = Cells(1, ActiveCell.Column)


If this post helps click Yes
---------------
Jacob Skaria


"Ayo" wrote:

I am trying the assign the value in the first cell in the activecolumn to a
cell in another worksheet. Below is the "EntireColumn" version of the same
formular

reportWS.Range("A" & reportCurrentRow & "") =
c.EntireRow.Cells(reportCurrentRow, 3)

reportWS.Range("D" & reportCurrentRow
&"")=c.EntireColumn.Cells(reportCurrentRow, X)

How would I figure out what X is?