Hi .
I have a code for this.
Sub sheets()
sheets("sheet1").Select
Dim yy As String, y1 As String
ActiveSheet.UsedRange.Columns.Select
Selection.Copy
Selection.Copy
Selection.Copy
sheets("sheet2").Select
Dim lastrowx As Long
Dim celladdx As String, col As...