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
set rng = .cells(rows.count,1).End(xlup)(2)
' then
rng.Value = "New Data"
'or
Something.copy Destination:= rng

--
Regards,
Tom Ogilvy



"Jasper" wrote in message
...
Sorry. The question was: "How can I fill in the data, using the code below
as
a basis, to fill in new data in the cell beneath the allready shown data?
Thanks!

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