Dim ColumnNumber As Long
Dim RowNumber As Long
Dim outPutValue As Double
For ColumnNumber = 1 To 2
For RowNumber = 2 To 20
outPutValue = Range("AE2").Cells(RowNumber, ColumnNumber)
Range("AA2").Cells(RowNumber, ColumnNumber) = outPutValue
Next RowNumber
For ColumnNuber = 1 To 2
For RowNumber = 2 To 20
outPutValue = Range("AF2").Cells(RowNumber, ColumnNumber)
Range("AB2").Cells(RowNumber, ColumnNumber) = outPutValue
Next RowNumber
For Column = 1 To 2
For RowNumber = 2 To 20
outPutValue = Range("AG2").Cells(RowNumber, ColumnNumber)
Range("AC2").Cells(RowNumber, ColumnNumber) = outPutValue
Next RowNumber