Automatic COPY and PAST entire Column to another sheet column

Hi,

Please kindly help to Automatically COPY and PAST entire Column to another sheet column.
I have below code. but it is working only 1cell Eg: Sheet 1 Cell A1 only Copying to Sheet2 A1 but B1 not

So I need entire colum copy past to anothe sheet . pLease help me.

Sub ToOtherSheet()
Dim Wb1 As Workbook, Wb2 As Workbook
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim Rng1 As Range, Rng2 As Range
Set Wb1 = Workbooks("Test1.xls")
Set Wb2 = Workbooks("Test1.xls")
Set Sh1 = Wb1.Worksheets("Sheet1")
Set Sh2 = Wb2.Worksheets("Sheet2")
Set Rng1 = Sh1.Range("A1")
Set Rng2 = Sh2.Range("A1")
Rng2 = Rng1
End Sub

Thanks and Regards,
Irfan

Please use code tags when posting. Maybe:

Please Login or Register  to view this content.

Thanks for the reply

I used above code. it is working. But i need some columns like Sheet1 Columns "B" paste to Sheet2 Columns"D"

Can you help me on this.

Much help full if you could

Thanks regards,
Irfan

This will do that.

Please Login or Register  to view this content.