copy table data in excel

[joemo2003]

I try to copy one column of a table in excel, from top to end, so i use

Worksheets("she et1").Range("F6 ", Range("F6").End (xlDown)).Copy
, but it come out "Applicatio n-defined or object-defined error", anybody know what is wrong? The same code work for the column not in the table.

thanks

[joemo2003]

in excel VBA macro, my full code is look something like this:

Sub copy_Click()
Worksheets("Sheet1").Range("A1", Range("A1").End(xlDown)).Copy
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("B2").Select
ActiveSheet.Paste
Worksheets("Sheet2").Cells(1, 1).Select
Worksheets("Sheet3").Activate
Application.CutCopyMode = False
Worksheets("Sheet3").Range("C1", Range("C1").End(xlDown)).Copy
Worksheets("Sheet3").Range("D1").Select
ActiveSheet.Paste
End Sub

the code stop at
Worksheets("She et3").Range("C1 ", Range("C1").End (xlDown)).Copy

It seem like it is not a table problem. seem like it cannot be copy twice.

help!
thanks

[joemo2003]

never mind ... got it

[SammyB]

in excel VBA macro, my full code is look something like this:

Sub copy_Click()
Worksheets("Sheet1").Range("A1", Range("A1").End(xlDown)).Copy
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("B2").Select
ActiveSheet.Paste
Worksheets("Sheet2").Cells(1, 1).Select
Worksheets("Sheet3").Activate
Application.CutCopyMode = False
Worksheets("Sheet3").Range("C1", Range("C1").End(xlDown)).Copy
Worksheets("Sheet3").Range("D1").Select
ActiveSheet.Paste
End Sub

the code stop at
Worksheets("She et3").Range("C1 ", Range("C1").End (xlDown)).Copy

It seem like it is not a table problem. seem like it cannot be copy twice.

help!
thanks

The problem is that the second Range is not qualified by a Worksheet so it defaults to the ActiveSheet. Instead of
Worksheets("She et1").Range("A1 ", Range("A1").End (xlDown)).Copy
you want

With Worksheets("Sheet1")
	.Range("A1", .Range("A1").End(xlDown)).Copy
End With

(Notice both Ranges have a dot before them)