Filling In Data Beneath Current Rows

For an application I am working on I need to have a macro to fill allready
copied Data in the Rows beneath the allready filled rows. I wanted to use
this rule:

Range("a2").End(xlDown).Offset(1, 9).Select

But I cant get it to work when I use it in the next macro:

Windows("Kostenbeheerssysteem Vorm I 15 februari 2005.xls").Activate
ActiveSheet.Paste
Cells.Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Cells.EntireColumn.AutoFit
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("K:K").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
End Sub

Can anyone tell me what I am doing wrong? Thanks in Advance,


Jasper

You haven't told us what is wrong.

--
Regards,
Tom Ogilvy

"Jasper" <[email protected]> wrote in message
news:[email protected]...
> For an application I am working on I need to have a macro to fill allready
> copied Data in the Rows beneath the allready filled rows. I wanted to use
> this rule:
>
> Range("a2").End(xlDown).Offset(1, 9).Select
>
> But I cant get it to work when I use it in the next macro:
>
> Windows("Kostenbeheerssysteem Vorm I 15 februari 2005.xls").Activate
> ActiveSheet.Paste
> Cells.Select
> With Selection
> .HorizontalAlignment = xlGeneral
> .VerticalAlignment = xlTop
> .WrapText = False
> .Orientation = 0
> .AddIndent = False
> .ShrinkToFit = False
> .MergeCells = False
> End With
> Cells.EntireColumn.AutoFit
> Rows("1:1").Select
> Selection.Delete Shift:=xlUp
> Columns("K:K").Select
> Range(Selection, Selection.End(xlToRight)).Select
> Selection.EntireColumn.Hidden = True
> Range("A1").Select
> End Sub
>
> Can anyone tell me what I am doing wrong? Thanks in Advance,
>
>
> Jasper