I am trying to copy several columns to a new worksheet. I have the following
code that does not copy the entire column correctly. It seems to copy only
cells C1 to C4. There are empty spaces in this column.

I would like for this to copy beginning at Org_Addr (this can be a variable
location) and all the way down to the last row of data in this column.

I appreciate the help!

ALATL

With SourceSheet
.Range(.Range(Org_Addr), .Range(Org_Addr).End(xlDown)).Copy
End With
DestSheet.[C65536].End(xlUp)(1).PasteSpecial Paste:=xlValues

One way:

With SourceSheet
With .Range(.Range(Org_Addr), .Cells(.Rows.Count, _
.Range(Org_Addr).Column).End(xlUp))
DestSheet.Cells(.Rows.Count, 3).End(xlUp).Resize( _
.Rows.Count, .Columns.Count).Value = .Value
End With
End With





In article <F2CF942F-DFF4-4487-BF3B-(E-Mail Removed)>,
ALATL <(E-Mail Removed)> wrote:

> I am trying to copy several columns to a new worksheet. I have the following
> code that does not copy the entire column correctly. It seems to copy only
> cells C1 to C4. There are empty spaces in this column.
>
> I would like for this to copy beginning at Org_Addr (this can be a variable
> location) and all the way down to the last row of data in this column.
>
> I appreciate the help!
>
> ALATL
>
> With SourceSheet
> .Range(.Range(Org_Addr), .Range(Org_Addr).End(xlDown)).Copy
> End With
> DestSheet.[C65536].End(xlUp)(1).PasteSpecial Paste:=xlValues

It worked! However, I have no idea why. Can you do me a favor & put this into
English for me?

I appreciate your answer!

Best,
ALATL

"JE McGimpsey" wrote:

> One way:
>
> With SourceSheet
> With .Range(.Range(Org_Addr), .Cells(.Rows.Count, _
> .Range(Org_Addr).Column).End(xlUp))
> DestSheet.Cells(.Rows.Count, 3).End(xlUp).Resize( _
> .Rows.Count, .Columns.Count).Value = .Value
> End With
> End With
>
>
>
>
>
> In article <F2CF942F-DFF4-4487-BF3B-(E-Mail Removed)>,
> ALATL <(E-Mail Removed)> wrote:
>
> > I am trying to copy several columns to a new worksheet. I have the following
> > code that does not copy the entire column correctly. It seems to copy only
> > cells C1 to C4. There are empty spaces in this column.
> >
> > I would like for this to copy beginning at Org_Addr (this can be a variable
> > location) and all the way down to the last row of data in this column.
> >
> > I appreciate the help!
> >
> > ALATL
> >
> > With SourceSheet
> > .Range(.Range(Org_Addr), .Range(Org_Addr).End(xlDown)).Copy
> > End With
> > DestSheet.[C65536].End(xlUp)(1).PasteSpecial Paste:=xlValues
>