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