Copy one column data to another
Sub Macro2copy_one_column_data2another()
'VBA Macro Code to copy one column to another
Sheets("Sheet1").Activate
Range("A:A").Select
Selection.ClearContents
Range("C:C").Select
Selection.ClearContents
Range("B:B").Select
Selection.Cut Destination:=Range("A:A")
Range("D:D").Select
Selection.Cut Destination:=Range("C:C")
Range("C:C").Select
End Sub
Comments
Post a Comment