For a fill in aplication I copy something from acces by hand and then use a
macro to fill it in the right sheet in the right format. For the fact that
the new data has to be filled in beneath the rows which are already there I
use the following macro rule:

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

In the following group of rules:

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

Though I can seem to get it working. Could anyone show me what I am doing
wrong? Thanks in Advance!