Sub MakeCueless()
'
' Makro3 Makro
' 16.10.2006
'

'
    Range("A1:I1").Select
    Selection.Copy
    Range("A12").Select
    ActiveSheet.Paste
    Range("J1:R1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A13").Select
    ActiveSheet.Paste
    Range("S1:AA1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A14").Select
    ActiveSheet.Paste
    Range("AB1:AJ1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A15").Select
    ActiveSheet.Paste
    Range("AK1:AS1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A16").Select
    ActiveSheet.Paste
    Range("AT1:BB1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A17").Select
    ActiveSheet.Paste
    Range("BC1:BK1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A18").Select
    ActiveSheet.Paste
    Range("BL1:BT1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A19").Select
    ActiveSheet.Paste
    Range("BU1:CC1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A20").Select
    ActiveSheet.Paste

    Range("A2:I2").Select
    Selection.Copy
    Range("L12").Select
    ActiveSheet.Paste
    Range("J2:R2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L13").Select
    ActiveSheet.Paste
    Range("S2:AA2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L14").Select
    ActiveSheet.Paste
    Range("AB2:AJ2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L15").Select
    ActiveSheet.Paste
    Range("AK2:AS2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L16").Select
    ActiveSheet.Paste
    Range("AT2:BB2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L17").Select
    ActiveSheet.Paste
    Range("BC2:BK2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L18").Select
    ActiveSheet.Paste
    Range("BL2:BT2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L19").Select
    ActiveSheet.Paste
    Range("BU2:CC2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L20").Select
    ActiveSheet.Paste


    Range("A3:I3").Select
    Selection.Copy
    Range("W12").Select
    ActiveSheet.Paste
    Range("J3:R3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W13").Select
    ActiveSheet.Paste
    Range("S3:AA3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W14").Select
    ActiveSheet.Paste
    Range("AB3:AJ3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W15").Select
    ActiveSheet.Paste
    Range("AK3:AS3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W16").Select
    ActiveSheet.Paste
    Range("AT3:BB3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W17").Select
    ActiveSheet.Paste
    Range("BC3:BK3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W18").Select
    ActiveSheet.Paste
    Range("BL3:BT3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W19").Select
    ActiveSheet.Paste
    Range("BU3:CC3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W20").Select
    ActiveSheet.Paste

    Range("A4:I4").Select
    Selection.Copy
    Range("A22").Select
    ActiveSheet.Paste
    Range("J4:R4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A23").Select
    ActiveSheet.Paste
    Range("S4:AA4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A24").Select
    ActiveSheet.Paste
    Range("AB4:AJ4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A25").Select
    ActiveSheet.Paste
    Range("AK4:AS4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A26").Select
    ActiveSheet.Paste
    Range("AT4:BB4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A27").Select
    ActiveSheet.Paste
    Range("BC4:BK4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A28").Select
    ActiveSheet.Paste
    Range("BL4:BT4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A29").Select
    ActiveSheet.Paste
    Range("BU4:CC4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A30").Select
    ActiveSheet.Paste

    Range("A5:I5").Select
    Selection.Copy
    Range("L22").Select
    ActiveSheet.Paste
    Range("J5:R5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L23").Select
    ActiveSheet.Paste
    Range("S5:AA5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L24").Select
    ActiveSheet.Paste
    Range("AB5:AJ5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L25").Select
    ActiveSheet.Paste
    Range("AK5:AS5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L26").Select
    ActiveSheet.Paste
    Range("AT5:BB5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L27").Select
    ActiveSheet.Paste
    Range("BC5:BK5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L28").Select
    ActiveSheet.Paste
    Range("BL5:BT5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L29").Select
    ActiveSheet.Paste
    Range("BU5:CC5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L30").Select
    ActiveSheet.Paste

    Range("A6:I6").Select
    Selection.Copy
    Range("W22").Select
    ActiveSheet.Paste
    Range("J6:R6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W23").Select
    ActiveSheet.Paste
    Range("S6:AA6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W24").Select
    ActiveSheet.Paste
    Range("AB6:AJ6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W25").Select
    ActiveSheet.Paste
    Range("AK6:AS6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W26").Select
    ActiveSheet.Paste
    Range("AT6:BB6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W27").Select
    ActiveSheet.Paste
    Range("BC6:BK6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W28").Select
    ActiveSheet.Paste
    Range("BL6:BT6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W29").Select
    ActiveSheet.Paste
    Range("BU6:CC6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W30").Select
    ActiveSheet.Paste

    Range("A7:I7").Select
    Selection.Copy
    Range("A32").Select
    ActiveSheet.Paste
    Range("J7:R7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A33").Select
    ActiveSheet.Paste
    Range("S7:AA7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A34").Select
    ActiveSheet.Paste
    Range("AB7:AJ7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A35").Select
    ActiveSheet.Paste
    Range("AK7:AS7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A36").Select
    ActiveSheet.Paste
    Range("AT7:BB7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A37").Select
    ActiveSheet.Paste
    Range("BC7:BK7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A38").Select
    ActiveSheet.Paste
    Range("BL7:BT7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A39").Select
    ActiveSheet.Paste
    Range("BU7:CC7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A40").Select
    ActiveSheet.Paste

    Range("A8:I8").Select
    Selection.Copy
    Range("L32").Select
    ActiveSheet.Paste
    Range("J8:R8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L33").Select
    ActiveSheet.Paste
    Range("S8:AA8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L34").Select
    ActiveSheet.Paste
    Range("AB8:AJ8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L35").Select
    ActiveSheet.Paste
    Range("AK8:AS8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L36").Select
    ActiveSheet.Paste
    Range("AT8:BB8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L37").Select
    ActiveSheet.Paste
    Range("BC8:BK8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L38").Select
    ActiveSheet.Paste
    Range("BL8:BT8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L39").Select
    ActiveSheet.Paste
    Range("BU8:CC8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L40").Select
    ActiveSheet.Paste

    Range("A9:I9").Select
    Selection.Copy
    Range("W32").Select
    ActiveSheet.Paste
    Range("J9:R9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W33").Select
    ActiveSheet.Paste
    Range("S9:AA9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W34").Select
    ActiveSheet.Paste
    Range("AB9:AJ9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W35").Select
    ActiveSheet.Paste
    Range("AK9:AS9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W36").Select
    ActiveSheet.Paste
    Range("AT9:BB9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W37").Select
    ActiveSheet.Paste
    Range("BC9:BK9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W38").Select
    ActiveSheet.Paste
    Range("BL9:BT9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W39").Select
    ActiveSheet.Paste
    Range("BU9:CC9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W40").Select
    ActiveSheet.Paste


 Range("A12:AE40").Select
    Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False


End Sub