VBA fill down

[chloedee1980]

I have code set up to select rows and can then fill down, but I want column C to fill series and the other columns to copy down.

The Range will always be different and so will the number of rows selected.

Is there a way of doing this?

Private Sub CommandButton1_Click()

Dim lRows As Long
lRows = TextBox1.Value
ActiveCell.Offset(1).Resize(lRows, 1).EntireRow.Insert
ActiveCell.EntireRow.Select
Range(ActiveCell, ActiveCell.End(xlDown).Offset(-1, 0)).EntireRow.Select
Selection.FillDown


   
   


Unload Me


End Sub

 

[sijpie]

Code not tested, but should work

Private Sub CommandButton1_Click()
'/////////////////////////////////////////////////
'//  Inserts required nr of rows (specified in  //
'//  Textbox1) at the current location in sheet //
'//  then copies columns down, only column C is //
'//  autofilled.                                //
'/////////////////////////////////////////////////
    Dim lRows As Long, lCols As Long
    Dim rAct As Range
    
    'set rAct to cell An where n is activecell row
    Set rAct = Cells(ActiveCell.Row, "A")
    
    'get the number of rows and columns to act on
    lRows = TextBox1.Value
    lCols = rAct.CurrentRegion.Columns.Count
    
    With rAct
        'Add required nr rows below rAct
        .Offset(1).Resize(lRows, 1).EntireRow.Insert
        'Fill down all columns
        .Resize(lRows + 1, lCols).FillDown
        'Now Autofill column C
        .Offset(0, 2).Resize(lRows + 1, 1).AutoFill
    End With
    
    Unload Me
End Sub