there :
Take this step by step using F8 and read the comments
Sub offset()
Dim cell As Range
Dim cel As Range
For Each cell In Range("A6,O6,AC6")
Range("A6,O6,AC6").Select ''the corners
cell.Select '' for each corner
cell.Resize(12).Select '' first column
For Each cel In cell.Resize(12)
cell.Resize(12).Select '' the column
cel.Select ''current cell in column
cel.Resize(, 13).Select 'the row to be copied
cel.offset(15, cel.Row - 6).Select '' destination
cel.Resize(, 13).Copy cel.offset(15, cel.Row - 6)
Next cel
Next cell
End Sub
Bookmarks