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

Filling In Data Beneath Current Rows
 

You haven't told us what is wrong.

--
Regards,
Tom Ogilvy

"Jasper" wrote in message
...
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