how can i make this makro go through a hole document and do the changes liken in the first line?
Rows("2:2"
.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll ToRight:=5
Range("O1"
.Select
Selection.Cut Destination:=Range("N2"
Range("O1"
.Select
Columns("O:O"
.ColumnWidth = 6
Range("P1"
.Select
Columns("O:O"
.ColumnWidth = 4.86
Selection.Cut Destination:=Range("N3"
Range("Q1"
.Select
Selection.Cut Destination:=Range("N4"
Range("R1"
.Select
Selection.Cut Destination:=Range("N5"
Range("S1"
.Select
Selection.Cut Destination:=Range("N6"
Range("T1"
.Select
Selection.Cut Destination:=Range("N7"
Range("N7"
.Select
ActiveWindow.SmallScroll ToRight:=5
Range("V1"
.Select
Selection.Cut Destination:=Range("U2"
Range("W1"
.Select
Selection.Cut Destination:=Range("U3"
Range("X1"
.Select
Selection.Cut Destination:=Range("U4"
Range("Y1"
.Select
Selection.Cut Destination:=Range("U5"
Range("Z1"
.Select
Selection.Cut Destination:=Range("U6"
Range("AA1"
.Select
Selection.Cut Destination:=Range("U7"
Range("U7"
.Select
ActiveWindow.SmallScroll ToRight:=5
Range("AC1"
.Select
Selection.Cut Destination:=Range("AB2"
Range("AD1"
.Select
Selection.Cut Destination:=Range("AB3"
Range("AE1"
.Select
Selection.Cut Destination:=Range("AB4"
Range("AF1"
.Select
Selection.Cut Destination:=Range("AB5"
Range("AG1"
.Select
Selection.Cut Destination:=Range("AB6"
Range("AH1"
.Select
Selection.Cut Destination:=Range("AB7"
Range("AB7"
.Select
ActiveWindow.SmallScroll ToRight:=-9
Rows("8:8"
.Select
Range("G8"
.Activate
i would be very thankfull for help
andreas owen
aowen@swissonline.ch
Rows("2:2"
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll ToRight:=5
Range("O1"
Selection.Cut Destination:=Range("N2"
Range("O1"
Columns("O:O"
Range("P1"
Columns("O:O"
Selection.Cut Destination:=Range("N3"
Range("Q1"
Selection.Cut Destination:=Range("N4"
Range("R1"
Selection.Cut Destination:=Range("N5"
Range("S1"
Selection.Cut Destination:=Range("N6"
Range("T1"
Selection.Cut Destination:=Range("N7"
Range("N7"
ActiveWindow.SmallScroll ToRight:=5
Range("V1"
Selection.Cut Destination:=Range("U2"
Range("W1"
Selection.Cut Destination:=Range("U3"
Range("X1"
Selection.Cut Destination:=Range("U4"
Range("Y1"
Selection.Cut Destination:=Range("U5"
Range("Z1"
Selection.Cut Destination:=Range("U6"
Range("AA1"
Selection.Cut Destination:=Range("U7"
Range("U7"
ActiveWindow.SmallScroll ToRight:=5
Range("AC1"
Selection.Cut Destination:=Range("AB2"
Range("AD1"
Selection.Cut Destination:=Range("AB3"
Range("AE1"
Selection.Cut Destination:=Range("AB4"
Range("AF1"
Selection.Cut Destination:=Range("AB5"
Range("AG1"
Selection.Cut Destination:=Range("AB6"
Range("AH1"
Selection.Cut Destination:=Range("AB7"
Range("AB7"
ActiveWindow.SmallScroll ToRight:=-9
Rows("8:8"
Range("G8"
i would be very thankfull for help
andreas owen
aowen@swissonline.ch