Filling In Data Beneath Current Rows

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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 must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Inserting Data Beneath Current Rows 3
How to get a macro to run on all files in a folder and save each one? 0
Modify Recorded Macro 1
Run Time error 1004 - Pastespecial method of range class failed. 3
Run-Time error '9' Subscript out of Range 7
Condense code 2
Using Sheets.Add after and want to keep a sheet as the first sheet 2
Run-Time error 1004 in Autofill method of rangle class failed 2

Back
Top