Range("AA9").Select
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(500, 0)).Select
Selection.ClearContents
ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.End(xlDown).Offset(0, -1).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
If IsEmpty(Range("AD9")) Then Exit Sub
Range("AD9").Select
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(500, 0)).Select
Selection.ClearContents
ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.End(xlDown).Offset(0, -1).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
If IsEmpty(Range("AG9")) Then Exit Sub
Range("AG9").Select
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(500, 0)).Select
Selection.ClearContents
ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.End(xlDown).Offset(0, -1).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste