Makro wird unvollständig ausgefüllt

Sub Mahnlisten()
' Mahnlisten Makro
' Makro am 15.08.2012 von Guenter Faufgezeichnet
Sheets("Mahnvorschlagsliste Paket").Select
Range("B13,B40").Select
Range("B40").Activate
Sheets(Array("Mahnvorschlagsliste Paket", "Mahnvorschlagsliste Paket (2)")). _
Select
Sheets("Mahnvorschlagsliste Paket").Activate
Columns("A:A").ColumnWidth = 12.71
Columns("B:B").ColumnWidth = 24.86
Columns("C:C").ColumnWidth = 10.14
Columns("C:C").ColumnWidth = 12.86
Columns("C:C").ColumnWidth = 10.43
Columns("D:D").ColumnWidth = 8.43
Columns("D:D").ColumnWidth = 9.43
Columns("F:F").ColumnWidth = 17.29
Columns("H:H").ColumnWidth = 5.71
Columns("I:I").ColumnWidth = 7.29
Columns("I:I").ColumnWidth = 8
Columns("K:K").ColumnWidth = 5.14
Columns("K:K").ColumnWidth = 6
Columns("N:N").ColumnWidth = 10.71
Columns("O:O").ColumnWidth = 10.57
Columns("P:P").ColumnWidth = 10.71
Range("R3").Select
Columns("Q:Q").ColumnWidth = 10.57
Rows("1:1").RowHeight = 63.75
Columns("O:O").ColumnWidth = 11.71
Columns("P:P").ColumnWidth = 12.43
Columns("Q:Q").ColumnWidth = 10.71
Columns("N:Q").Select
Selection.NumberFormat = "m/d/yyyy"
Selection.Replace What:="00.01.1900", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub