Code:
Function rr()
Dim i As Integer
Dim var1, var2 As String
For i = 1 To 23
Select Case i
Case 1
var1 = "A:A"
var2 = "A1"
Case 2
var1 = "I:I"
var2 = "B1"
Case 3
var1 = "B:B"
var2 = "C1"
Case 4
var1 = "F:F"
var2 = "D1"
Case 5
var1 = "K:K"
var2 = "E1"
Case 6
var1 = "C:C"
var2 = "F1"
Case 7
var1 = "J:J"
var2 = "G1"
Case 8
var1 = "R:R"
var2 = "H1"
Case 9
var1 = "T:T"
var2 = "I1"
Case 10
var1 = "S:S"
var2 = "J1"
Case 11
var1 = "X:X"
var2 = "K1"
Case 12
var1 = "D:D"
var2 = "L1"
Case 13
var1 = "E:E"
var2 = "M1"
Case 14
var1 = "M:M"
var2 = "N1"
Case 15
var1 = "O:O"
var2 = "O1"
Case 16
var1 = "L:L"
var2 = "P1"
Case 17
var1 = "N:N"
var2 = "Q1"
Case 18
var1 = "O:O"
var2 = "R1"
Case 19
var1 = "P:P"
var2 = "S1"
Case 20
var1 = "N:N"
var2 = "T1"
Case 21
var1 = "U:U"
var2 = "U1"
Case 22
var1 = "H:H"
var2 = "V1"
Case 23
var1 = "V:V"
var2 = "W1"
End Select
Sheets("Sheet1").Select
Sheets("Sheet1").Columns(var1).Copy
Sheets("Sheet2").Select
Sheets("Sheet2").Range(var2).Select
ActiveSheet.Paste
Application.CutCopyMode = True
Next i
End Function