Copy 1 column from sheet 2 to sheet 1 using macro code

[roipatrick]

I want to copy 1 column let's say column A from sheet 2 (which has 900 data(data count varies) to column A in sheet 1 starting in A3(for sample).

Sample(Sheet 2)

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]orange[/TD]
[TD]orange[/TD]
[/TR]
[TR]
[TD]coconut[/TD]
[TD]green[/TD]
[/TR]
</tbody>[/TABLE]


Copy column A from sheet 2 (above) to this sheet (sheet 1) starting in A3

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]A[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]orange[/TD]
[/TR]
[TR]
[TD]coconut[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

I need a sampl macro which can do that. Sometimes Sheet2 data may have at least a thousand data which needed to be copied frm sheet 2 to sheet 1 startiing in A3.
Sorry but I'm stll new to VBA and this is just a part of my studying habit in VBA :D

Thanks for helping

 

[jduley]

Sub Macro1()


Sheets("Sheet2").Select
Range("A1:A10000").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A3").Select
ActiveSheet.Paste
End Sub

 

[Gavin T]

This would work.

Worksheets("Sheet2").UsedRange.Columns("A").Copy Destination:=Worksheets("Sheet1").Range("A3")

 

[roipatrick]

Sub Macro1()


Sheets("Sheet2").Select
Range("A1:A10000").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A3").Select
ActiveSheet.Paste
End Sub

Thanks. This one works.